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48 

49 HISTORY 

50 

52 NO CHANGES TO THE 11/34 FLOATING POINT DIAGNOSTICS PART 'A' WERE 

^3 FOUND TO BE NEEDED TO ADAPT IT FOR USE ON THE 11/44. 

54 

55 THE FOLLOWING UAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 

56 TO MAKE THE 'B' VERSION COVER THE 11/44: 
57 

58 1. TEST 22 - PROCESSOR LOOKS TO SEE IF APT IS CON- 

59 TROLLING THE TEST, AND IF IT IS. CHECKS TO SEE 

60 IF THE USER HAS SELECTED THIS TEST BY CHECKING 

61 BIT 7 IN THE SWITCH REGISTER. IT HAS ALSO BEEN 

62 CHANGED SO THAT IF BIT 7 IS *ONE*, THE CODE WILL 

63 SELECT THE TEST. 
64 

65 THE FOLLOWING UAS ADDED TO THE 11/34 FLOATING POINT DIAGNOSTIC 

66 TO MAKE THE 'C VERSION COVER THE 11/44: 
67 

68 1. TEST 76 - CHECKS THAT FP PROCESSOR DOESN'T ACCESS 

69 D-SPACE UNTIL CONDITIONS WARRANT. 
70 

71 2. TEST 77 - CHECKS THAT SRI HATCHES WHAT ACTUALLY 

72 HAPPENED TO THE REGISTER OF THE INSTRUCTION. AND 

73 THAT THE VALUE OF AUTO INCREMENT/DECREMENT WAS 

74 PROPER. 
75 

76 ALL THREE PARTS WERE RE-RELEASED WITH NEW SCOPE AND ERROR ROUTINES THAT 

77 CHECK BIT 0 OF THE CPU ERROR REGISTER (POWER MONITOR BIT). THE ADDI- 

78 TIONS WERE MADE IN THE SCOPE ROUTINE. EXECUTED AT THE BEGINNING OF 

79 EACH TEST. IF THE BIT BECOMES SET, AN ERROR IS CALLED FROM THE 

80 SCOPE ROUTINE. THE BIT IS CLEARED. AND THE TEST IS CONTINUED. 

81 IF THE BIT BECOMES SET IN THE MIDDLE OF A TEST. AND AN ERROR OCCURS 

82 FOR ANY REASON. THE ERROR ROUTINE WILL CALL *TWO* ERRORS. THE POWER 

83 MONITOR BIT ERROR FIRST. THEN THE ERROR ORIGINALLY CALLED. IN 

84 ADDITION. THE SREAD ROUTINE NOW CHECKS FOR A RANDOMLY INPUTED 

85 BEFORE A *S IS TYPED. THIS BECAME NECESSARY WITH CERTAIN DATA 

86 CONNECTIONS OF SOME SYSTEMS. 
87 

88 THE FOLLOWING WAS ADDED TO THE 'D' VERSION: 
89 

90 THE END-OF-PASS MESSAGES ARE NOW PRINTED EVERY 200 PASSES. THESE MESSAGES CAN 

91 BE DISABLED BY TYPING ANY KEY. THEY CAN BE REENABLED BY AGAIN TYPING ANY KEY 

92 THI^ IS HELPFUL FOR OVERNIGHT RUNS ON HARD COPY TERMINALS. IT ALSO MAKES THE 

93 DIAGNOSTIC HARDWARE INTENSIVE INSTEAD OF TERMINAL INTENSIVE. 
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1. ABSTRACT 

THE THREE PROGRAMS: 

CKFPADO CICFPBCO CKFPCDO 

ARE DESIGN TO DETECT AND REPORT LOGIC FAULTS IN THE 
PDP 11/44 FP11-F FLOATING POINT PROCESSOR. THE 
DESIGN IS AN ATTEMPT TO REACH ALL ROM STATES, TAKE 
ALL BRANCH MICRO TESTS (BUT'S) AND VARIFY ALL THE 
LOGIC. THEY CONSIST OF 157 (OCT) INDIVIDUAL TESTS 
SEQUENCED TO DETECT AND ATTEMPT TO IDENTIFY FAULTS 
WITH A MINIMUM HARDWARE OR SOFTWARE LEVEL. THE 
TESTS ARE PARTIONED INTO THREE STAND-ALONE PROGRAMS 
DESCRIBED BELOW. 

NOTE THAT ERROR REPORTS IN THESE PROGRAMS ARE BASED 
UPON THE KNOWLEDGE THAT ALL PREVIOUS TESTS HAVE BEEN 
RUN AND IN MOST CASE THAT THERE IS ONLY A SINGLE 
POINT FAULT IN THE FP11-F. IF THE PROGRAMS OR TESTS 
ARE NOT RUN IN ORDER THEN ERROR MESSAGES MAY NOT BE 
ACCURATE. 

A. CKFPADO 

CKFPADO TESTS: 

LDFPS 
STFPS 
CFCC 

SETF. SETD, SETI AND SETL 
STST 

LDF AND LDD (ALL SOURCE MODES) 
STD (MODE 0 AND 1) 



B. 



ADDF, ADDD AND SUBD (MOST CONDITIONS) 
CKFPBCO 



CKFPBCO TESTS: 



ADDF, ADDC AND SUBD (ALL CONDITIONS 
TESTED IN CKFPBCO) 

CMPD AND CMPF 
DIVD AND DIVF 
MULD AND MULF 
MODD AND MODF 



NOT 



C. CKFPCDO 
CKFPCDO TESTS: 



STF AND STD (ALL MODES) 
SrCFD AND STCDF 
CLRD AND CLRF 



F T 
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202 
203 
20A 
205 
206 
2C7 
208 
209 
210 
211 
212 
213 
2U 
215 
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217 
218 
219 
220 
221 
222 
223 
22« 
225 
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228 
229 
230 
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232 
233 
234 
235 
236 
237 
236 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 



2. 



2.1 



2.2 



2.3 



3. 



4.1 



4.2 



NE6F AND NEGD 
ABSF AND ABSD 
TSTF AND TSTD 

NEGF, ABSF AND TSTF (ALL SOURCE MODES) 

NEGF. ABSF AND TSTF (ALL SOURCE MODES) 

LDFPS (ALL SOURCE MODES) 

LDCIF AND LDCLF 

LDCID AND LDCLD 

LPEXP 

STFPS (ALL DESTINATION MODES) 

STCFL AND STCFI 

STCDL AND STCDI 

STEXP 

STST 



REQUIREMENTS 



EQUIPMENT 



A PDP 11/44 (WITH OR WITHOUT CONSOLE). LA30 (OR 
EQUIVALENT) AND AN FP11-F FLOATING POINT PROCESSOR. 
NOTE THAT A SPECIAL INTERRUPTS TEST MODULE IS BEING 
DESIGNED FOR USE IN THE MANUFACTURING ENVIRONMENT. 
WHEN THIS DEVICE IS PRESENT THE PROGRAM CKFPBCO WILL 
MAKE USE OF IT TO TEST THE FPP INTERRUPT ON BUS 
REQUEST FUNCTIONS. 



STORAGE 

ALL THREE PROGRAM REQUIRE A 
LEAST 16K TO LOAD AND RUN. 

PRELIMINARY PROGRAMS 



MEMORV SYSTEM OF AT 



THESE THREE DIAGNOSTICS WILL ASSUME THAT THE PDP 
11/44 CENTRAL PROCESSOR IS FAULTLESS. THEREFORE WHEN 
IN DOUBT RUN THE PDP 11/44 PROCESSOR DIAGNOST'CS 
BEFORE THESE FP11-F DIAGNOSTICS. 



LOADING PROCEDURE 



THE PROGRAMS WILL BE SUPPLIED ON THE 11/44 
DIAGNOSTIC MEDIA. REFER TO THE XXDP OPERATING 
MANUAL FOR FURTHER INFORMATION. 



STARTING PROCEDURE 



CONTROL SWITCH SETTINGS 

SEE SECTION 5.1 

PROGRAM AND OPERATOR ACTION 
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303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 



5. 
5.1 



6. 
6.1 



1. LOAD PROGRAM INTO MEMORY 

2. LOAD ADDRESS 200 

3. SET CONSOLE SWITCHES (IF CONSOLE IS PRESENT) 

4. PRESS START 

ON FIRST PASS THE PROGRAM 
WILL IDENTIFY ITSELF. NOTE THAT IF THERE IS 
NO PHYSICAL CONSOLE THE PROGRAM WILL REQUEST 
THE OPERATOR FOR INITIAL VALUE FOR THE 
SOFTWARE SWITCH REGISTER (SEE SECTION 8.5). 
IF RUNNING UNDER ACT, APT OR CHAIN THIS DOES 
NOT APPLY. 

5. THE PROGRAM WILL LOOP AND AN END OF PASS AND 
ERROR SUMMARY WILL BE TYPED AT THE END OF 
EVERY PASS. 

OPERATING PROCEDURE 



OPERATIONAL SWITCH SETTINGS 
THE SWITCH SETTING ARE: 



SW<15>=1... 
SW<14>=1.., 
SW<13>=1... 
SW<12>=1.., 
SW<11>s1.., 
SW<10>=1.., 
SW<9>=1 . . . , 
SW<8>=1 . . . , 

SW<7>=1 . . . , 



SW<7>=1 



OCTAL 
100000 
40000 
20000 
10000 
4000 
2000 
1000 
400 

200 



200 



HALT ON ERROR 
LOOP ON CURRENT TEST 
INHIBIT ERROR TYPE OUTS 
INHIBIT T-eiT TRAPPING 
INHIBIT ITERATIONS 
RING TTY BELL ON ERROR 
LOOP ON ERROR 
LOOP ON TEST SPECIFIED 
THROUGH SW<0* 

PRINT ERROk summary EVEN 
SW<13>=1, THIS APPLIES ONLY 
PROGRAM CKFPADO. 

SELECT CORRECT INTERRUPT TEST IN 
PROGRAM CKFP8C0. IF APT IS SELECTING 
THE TEST, THE SWITCH REGISTER IS 
EXAMINED TO SEE IF THE USER HAS 
SELECTED THIS TEST BY A <1> IN 
SW<7> 



IN SW<6> 



IF 
TO 



ERRORS 



SUMMARIES 



IN PROGRAM CKFPADO. TESTS 1 AND 11 HAVE ; SPECIAL 
ERROR SUMMARY FEATURE. THESE TWO TEST RUN MANY 
TEST PATTERNS THROUGH THE LOGIC. AFTER AN ERROR 
IS ENCOUNTERED, ONLY THE FIRST FIVE ERRORS ARE 
REPORTED (TYPED ON THE TTY). EVERY C1R0R THOUGH 
IS LOGGED AND AN ERROR SUMMARY IS PRINTED WHEN 
THE TEST IS COMPLETE. NOTE THAT IF SW<13>=1 THIS 
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317 

318 

319 

320 

321 

322 

323 

32A 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

559 

360 

361 

362 

363 

364 

365 

366 

36? 

368 

369 

370 

371 

372 



6.2 



7. 

8. 
8.1 

8.2 
8.3 



8.4 



8.5 



SUHRAfiY WILL NOT BE TYPED UNLESS SU<7>=1 . IN OTHER 
WORDS TO GET JUST AN ERROR SUMMARY FROM EITHER OF 
THESE TWO TESTS 1 AND 11 IN PROGRAM CKFPADO BOTH 
SWITCHES 13 AND 7 MUST = 1. 



ERROR RECOVERY 
SW<15:9>sO... 



SW<15>=1... 



NONE 



MOST ERRORS WILL CAUSE EXECUTION TO 
GO TO THE START OF THE NEXT TEST 
AFTER THE MESSAGE IS TYPED. A FEW 
TESTS ARE IN SECTIONS. IN THESE 
TESTS AN ERROR WILL CAUSE EXECUTION 
TO GO TO THE NEXT SECTION AFTER THE 
MESSAGE IS TYPED. 

THE PROGRAM WILL HALT AFTER TYPING 
THE ERROR MESSAGE. PRESSING THE 
CONSOLE CONTINUE WILL CAUSE THE 
PROGRAM TO CONTINUE AS IF SW<1S>=0. 

RESTRICTIONS 



MISCELLANEOUS 



EXECUTION TIMES 

LESS THAN 10 SECONDS FOR EACH PROGRAM ON ANY PASS. 
STACK POINTER 

THE STACK POINTER IS INITIALIZED TO 1100 IN EACH 
THE THREE PROGRAMS. 

PASS COUNT 



OF 



THE PROGRAM MAKES ONE PASS FOR EACH END OF PASS 
MESSAGE TYPED. THE END OF PASS MESSAGE DESCRIBES 
THE TOTAL NUMBER OF PASSES COMPLETED AND THE TOTAL 
NUMBER OF ERRORS SINCE THE LAST END OF PASS MESSAGE. 

T-8IT TRAPPING 

IF SW<12>=0 EACH PROGRAM WILL RUN WITH TRACE TRAPS 
ON EVERY OTHER PASS. FIRST PASS WILL NOT ENABLE 
TRACE TRAPS. NOTE SW<12>=1 DISABLES T-BIT TRAPS. 

SOFTWARE SWITCH REGISTER 

EACH OF THE THREE PROGRAMS WILL RUN WITH OR WITHOUT 
A CONSOLE SWITCH REGISTER. IF A PHYSICAL CONSOLE 
SWITCH REGISTER IS PRESENT ON THE SYSTEM, THEN THESE 
PROGRAMS WILL GO AHEAD AND USE IT FOR THE SWITCH 
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573 FUNCTIONS DESCRIBED IN 5.1 ABOVE. IF HOWEVER THERE 

574 IS NO CONSOLE SWITCH REGISTER ON THE SYSTEM A 
375 SOFTWARE SWITCH REGISTER WILL BE USED. THIS 

576 SOFTWARE SWITCH REGISTER CAN BE EXAMINED OR MODIFIED 

577 AT ANY TIME BY THE USER IF HE TYPES CONTROL G WHILE 
378 THE PROGRAM IS RUNNING. THIS CONTROL G WILL CAUSE 
579 THE CONTENTS OF THE SOFTWARE SWITCH REGISTER TO BE 

380 TYPED ON THE TTY AND ASK THE USER FOR A NEW VALUE. 

381 WHEN THE USER TYPES A VALUE AND CARRIAGE RETURN THEN 

382 THE PROGRAM WILL RESUME TESTING AT THE SAME POINT AT 

383 WHICH IT LEFT OFF WHEN THE USER TYPED CONTROL 6. 
38A NOTE THAT WHEN NOT RUNNING UNDER ACT. APT OR CHAIN 

385 THE USER WILL BE ASKED FOR A SOF TWARE ^ SWI TCH 

386 REGISTER VALUE AFTER LOADING ADDRESS 200 AND 

587 STARTING THE PROGRAM THE FIRST TIME THE PROGRAM IS 

588 RUN AFTER LOADING (ONLY IF NO CONSOLE SWITCH 

589 REGISTER IS ON THE SYSTEM). 
390 

592 8.6 INTERRUPTS TEST 

393 

594 IN PROGRAM CKFPBCO. THERE IS A SPECIAL TEST FOR 

395 CHECKING THE CORRECT FLOWS OF THE FPP. THIS TEST 

396 CAN BE RUN ONLY IF A SPECIAL TEST MODULE IS IN THE 

597 SYSTEM. THIS MODULE WILL PROBABLY ONLY BE USED IN 

598 MANUFACTURING. IF THIS MODULE IS NOT IN THE SYSTEM 

599 THIS TEST WILL AUTOMATICALLY BE DESELECTED. IF THIS 

400 TEST MODULE IS ON THE SYSTEM AND SW<7>=0 THIS TEST 

401 WILL dE RUN. IF SW<7>=1 THIS TEST WILL BE 

402 DESELECTED. 
403 

405 8.7 ACT, APT AND XXOP COMPATIBILITY 

406 

407 THESE PROGRAMS ARE FULLY COMPATIBLE WITH: 

408 APT 

410 XXDP MONITOR AND CHAIN PROGRAMS. 

All 

412 
413 
414 
415 
416 
417 
418 
419 

420 9. PROGRAM DESCRIPTION 

421 

422 

423 
424 
425 
426 
427 

428 TEST 1 ROUND\TRUNK TEST 

429 
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A30 
431 
432 
433 
434 

tn, 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 



TEST 2 



TEST 3 



TEST 5 



TEST 6 



TEST 7 



THIS IS A TEST OF THE ROUNDMRUNK FLOWS. IN 
PARTICULAR TWO THINGS ARE TESTED; FIRST A CONDITION 
IN WHICH ROUNDING RESULTS IN THE NEED FOR 
RENORMALIZATION, AND SECOND THE PSU CONDITION CODES 
N AND Z BIT COWBINATIONS 

OVERXUNDER TEST 



THIS IS A PARTIAL TEST OF THE OVERVUNDER FLOWS. ONE 
OVERFLOW AND TWO UNDERFLOW CONDITIONS ARE CHECKED. 
THE REMAINING UNDERFLOW COND. AND THE REMAINING 
OVERFLOW COND. WILL BE CHECKED LATER USING THE XXX 
INSTRUCTION. HERE EACH CONDITION TESTED IS CHECKED 
BOTH WITH TRAPS ENABLED (FIU=1 OR FIV^I) AND ALSO 
WITH TRAPS DISABLED (FIU=0 OR FIV=0). 



LDCFO AND LDCDF TEST 



THIS IS A EST OF LDCFD AND LDCDF. 
TEST 4 CMPO TEST 



THIS IS A TEST OF THE CMPD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP OPERANDS, EXECUTE THE 
INSTRUCTION AND CHECK THE RESULTS 



DIVD WITH (FSRC-0) AND (BUT FD) TEST 



THIS IS A TEST OF THE DIVD INSTRUCTION WITH A ZERO 
DIVISOR. THE CONDITION IS CHECKED WITH BOTH TRAP 
ENABLED AND TRAPS DISABLED. 



DIVF TEST 



THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS. EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 

DIVD TEST 



THIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT A 
SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 
THE INSTRUCTION AND CHECK THE RESULTS. 

TEST 10 MULF TEST 

THIS IS A TEST OF THE HULF INSTRUCTION. IT HAKES 
USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 
THE MULF INSTRUCTION AND CHECK THE RESULTS. 
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A87 TEST 11 HULD TEST 

488 

A89 

490 THIS IS A TEST OF THE MULD INSTRUCTION. NOTE THAT A 

491 SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE 

492 THE NULD INSTRUCTION AND CHECK THE RESULTS. 
493 

49A TEST 12 UNDER\OVER FLOW, USING NULF WITH TRAPS DISABLED, TEST 

495 

496 

497 THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 

498 CONDITIONS USING THE HULF INSTRUCTION WITH TRAPS 

499 DISABLED. NOTE THAT A SUBROUTINE IS USED TO SET UP 

500 THE OPERANDS, EXECUTE THE NULF INSTRUCTION AND CHECK 

501 THE RESULTS. 
502 

503 TEST 13 UNDER\OVER FLOW, USING HULD WITH TRAPS DISABLED, TEST 

504 

505 

506 THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW 

507 CONDITIONS THAT CAN ARRISE USING THE NULD 

508 INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 

509 USED TO SET UP THE OPERANDS, EXECUTE THE NULD 

510 INSTRUCTION AND CHECK THE RESULTS. 

512 TEST 14 UNDER\OVER FLOW, USING NULF WITH TRAPS ENABLED, TEST 

513 

514 

515 THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 

516 CONDITIONS THAT CAN OCCUR USING THE NULF 

517 INSTRUCTION. A SUBROUTINE IS CALLED TO SET UP THE 

518 OPERANDS, EXECUTE THE NULF INSTRUCTION AND CHECK THE 

519 RESULTS. HERE THE PARTICULAR INTERRUPT, EITHER 

520 OVERFLOW OR UNDERFLOW, IS ENABLED SO A TRAP SHOULD 

521 OCCUR. 
522 

523 TEST 15 UNDER\OVER FLOW, USING NULD WITH TRAPS ENABLED, TEST 

524 

525 

526 THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW 

527 CONDITIONS USING THE NULD INSTRUCTION WITH TRAPS 

528 ENABLED. A SUBROUTINE IS USED TO SET UP THE 

529 OPERANDS, EXECUTE THE NULD INSTRUCTION AND CHECK THE 

530 RESULTS. 
531 

b32 TEST 16 NODF TEST 

533 

534 

535 THIS IS A TEST OF THE NODF INSTRUCTION, WHICH HAKES 

536 USE OF A SUBROUTINE TO SET UP THE OPERANDS, EXECUTE 

537 THE NODF INSTRUCTION AND CHECK THE RESULTS. 
538 

539 TEST 17 NODD TEST 

540 

541 

542 THIS IS A TEST OF THE NODO INSTRUCTION. IT NAKES 

543 USE OF A SUBROUTINE TO SET UP THE ARGUNENTS, EXECUTE 
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544 THE INSTRUCTION AND CHECK THE RESULTS. 

546 TEST 20 UNDERXOVER FLOW, USING MOOF WITH TRAPS DISABLED, TEST 

547 

548 

549 THIS IS A TEST OF THE MODF OVERFLOW AND UNDERFLOW 

550 CONDITIONS. IT HAKES USE OF A SUBROUTINE TO SETUP 

551 THE OPERANDS, EXECUTE THE MODF INSTRUCTION AND CHECK 

552 THE RESULTS. ' TRAPS ARE DISABLED DURING THIS TEST. 

554 TEST 21 UNDERXOVER FLOW, USING NODD WITH TRAPS DISABLED, TEST 

555 

556 

557 THIS IS A TEST OF THE HODD INSTRUCTION'S OVER FLOW 

558 AND UNDER FLOW CONDITIONS. A SUBROUTINE IS USED TO 

559 SET UP THE OPERANDS, EXECUTE THE MODD INSTUCTION AND 

560 CHECK THE RESULTS. 
561 

562 TEST 22 INTERRUPT CORRECT FLOWS TEST 

563 

564 

565 THIS IS A TEST OF THE 'CORRECT' FLOWS. THIS PART OF 

566 THE niCRO CODE HAS AS ITS PURPOSE INSURING THAT 

567 INTERRUPT REQUESTS HADE DURING CERTAIN LENGTHY FPP 

568 INSTRUCTIONS GET HONORED. THIS IS DONE IN A WAY 

569 SUCH THAT IF AN INTERRUPT REQUEST OCCURS DURING ONE 

570 OF THESE INSTRUCTIONS THE STATE OF THAT 

571 INSTRUCTION'S EXECUTION WILL BE THE SAME AS IF THAT 

572 INSTRUCTION HAD NEVER BEEN FETCHED AND ITS EXECUTION 

573 NEVER STARTED. THUS THE NICRO CODE WILL RESTORE ALL 

574 REGISTERS, BACK UP THE PC AND LEAVE THE FPS AND ACO 

575 THROUGH ACS UNMODIFIED. 

576 THE INSTRUCTIONS FOR WHICH THIS IS NECESSARY ARE: 

577 

578 ADD (OR SUB) 

579 DIV 

580 HUL 

581 MOD 

582 (BOTH DOUBLE AND FLOATING) 
583 

584 ALL ADDRESSING MOOES WILL BE TRIED WITH THE ADDD 

585 INSTRUCTION. THEN EACH OF THE OTHER INSTRUCTIONS 

586 WILL BE TRIED USING MODE 1. NOTE THAT THIS TEST 

587 NEEDS A SPECIAL INTERRUPT MODULE, WHICH WILL 

588 PROBABLY ONLY BE PRESENT IN DEC'S MANUFACTURING 

589 ENVIRONMENT, TO RUN. THIS SPECIAL EQUIPMENT IS 

590 DESIGNED TO RAISE AN INTERRUPT REQUEST IN THE 

591 PROCESSOR IF A BIT IS SET IN ITS STATUS REGISTER AND 

592 ONLY WHEN AN FPP INSTRUCTION IS ENCOUNTERED. 

593 THEREFORE THIS TEST WILL BE RUN CONDITIONALLY 

594 (DEPENDENT UPON WHETHER OR NOT THE STATUS REGISTER 

595 OF THE TEST EQUIPMENT TIMES OUT WHEN REFERENCED) . 

596 THIS TEST CAN ALSO BE SELECTED BY TURNING SWITCH 7 

597 OF THE SWITCH REGISTER (PHYSICAL OR VIRTUAL) ON. 

598 THE TEST ASSUMES THAT THE TEST EQUIPMENT'S STATUS 

599 REGISTER IS AT LOCATION 77777*^ (NOTE THAT ALL 

600 REFERENCES TO THIS LOCATION ARE MADE INDIRECT 
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601 THROUGH THIS PROGRAMS LOCATION CORINT, SO THAT IF 

602 THE USER HAS HOOIFIED THE TEST EQUIPMENT'S STATUS 

603 REGISTER TO RESPOND TO A DIFFERENT ADDRESS LOCATION 

604 CORINT MUST BE HADE TO CONTAIN THAT STATUS 

605 REGISTER'S NEU ADDRESS). THIS PROGRAM ASSUMES THAT 

606 THE TRAP VECTOR FOR THE TEST EQUIPMENT IS 110. 

607 AGAIN NOTE THAT ALL REFERENCES TO THIS TRAP VECTOR 

608 ARE INDIRECT, THROUGH THIS PROGRAM'S LOCATION CORTRP 

609 (IF THE TEST EQUIPMENT IS HADE TO TRAP TO A 

610 DIFFERENT VECTOR LOCATION CORTRP MUST CONTAIN THE 

611 ADDRESS OF THIS VECTOR). 
612 

613 
6H 
615 
616 
617 
618 
619 
620 
621 

622 10. LISTING 

623 ft 



r 
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SEOUEMCE 1 3 



624 
625 
626 
627 
628 
629 
630 
1645 
1646 
1647 
1648 
1649 
1650 



000267 
000002 



1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 



000001 
160000 



000244 
177400 
000200 
000011 
000015 



001100 
104000 
000004 

000011 
000012 
000015 
0P0200 
177776 
177776 
177774 

mm 

177570 
177570 

000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000006 



HNUHBER=267 
PR0GNUM=2 

.LIST 

.NLIST 

.NLIST 

•NLIST 

.NLIST 

.«CALL 

.HCALL 

.HCALL 

.HCALL 

•HCALL 
.TITLE CKFPBCO 
•COPYRIGHT (C) 
•DIGITAL EQUIPMENT CORP. 
•MAYNARD, MASS. 01754 



ME 
MD 
MC 

CND 
BEX 

.HEADER, -SWRHI . .EOUAT , .SETUP, . SCATCH. .$ACT1 1 , .SCMTAG 
NEWTST . iSNEWTEST , . SSAVE , . ST YPE 
.STYPDEC, .STRAP. .IPOWER. .SAPTHDR. .SAP TBLS 
.$TYPE..$APTYPE..$READ 

.EQUIV ; REMOVE FOR POP- 10 ASSEMBLY 

FPllF FLTG PNT PRT B 
1981 



•THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 

•PACKAGE (MAINDEC-11-DZQAC-C5), JAN, 1981. 

* 

$TN=1 

SSWR=160000 ;;HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 



FPVECT=244 
$SWR=1 77400 
SSURMSK=200 
TA8=11 
CRLF=15 



.SBTTL BASIC DEFINITIONS 
.••INITIAL ADDRESS OF THE STACK 
STACKS 1100 

ERROR=EMT 
SCOPE=IOT 
.••MISCELLANEOUS DEFINITIONS 



POINTER *•• 1100 •** 



HT= 
LF= 
CR= 
CRLF = 
PS= 

STKLMT= 
PIRQs 
DSWR= 
DDISP= 



11 
12 
15 
200 
177776 
PSW=PS 
177774 

mm 

177570 
177570 



;;CODE 
;;CODE 
;;CODE 
;;CODE 



FOR 
FOR 
FOR 
FOR 



TAB 



HORIZONTAL 
LINE FEED 
CARRIAGE RETURN 
CARRIAGE RETURN-LINE 
:;PROCESSOR STATUS WORD 



FEED 



.••GENERAL PURPOSE REGIST^^ DEFINITIONS 



;;STACK LIMIT REGISTER 
;:PROGRAM INTERRUPT REQUEST REGISTER 
:;HARDUARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



R0= 
R1 = 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 



XO 
XI 
X2 
X3 
X4 
X5 
X6 
XT 
X6 



; .-GENERAL 
; .-GENERAL 
.-.GENERAL 
..•GENERAL 
.-.•GENERAL 
GENERAL 
..-GENERAL 
.-.-GENERAL 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 



;; STACK POINTER 
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000007 

000000 
0000^0 
000100 

ooouo 

000200 
000240 
000300 
000340 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
C00001 

100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 
001000 
000400 
000200 



PC= V ;; PROGRAM COUNTER 

.••PRIORITY LEVEL DEFINITIONS 
PRO= 0 ;; PRIORITY LEVEL 0 

PR1= 40 ;;PRIORITY LEVEL 1 

PR2= 100 ;; PRIORITY LEVEL " 

PR3= 140 ;;PRIORITY LEVEL 

PR4= 200 ; .-PRIORITY LEVEL 

PR5= 240 ;;PRIORITY LEVEL 

PR6= 300 ;; PRIORITY LEVEL 

PR7= 340 ; .-PRIORITY LEVEL 

;*"SUITCH REGISTER" SWITCH DEFINITIONS 
SW15= 100000 
SU14- 40000 
SW13= 20000 
SU12= 10000 
SU11S 4000 
SU10= 2000 
SU09- 1000 
SU08- 400 
SU07- 200 
SU06= 100 
SW05= 40 
SU04= 20 
SU03= 10 
SU02= 4 
SU01= 2 
SUOO= 1 

SU9=SU09 

SU8-SU08 

SU7=SU07 

SU6=SU06 

SUS^SUOS 

SU4=SU04 

SU3-SU03 

SU2-SU02 

SU1=SU01 

SW0=SW00 
;*DATA BIT DEFINITIONS 
BIT15= 100000 
BIT! 4= 40000 
BIT 13= 20000 
BIT12= 10000 
BIT11= 4000 
BIT10= 2000 
BIT09= 1000 
BIT08= 400 
BIT07= 200 
BIT06= 100 
BIT05= 40 
BIT04= 20 
BIT03= 10 
BIT02= 4 
BIT01= 2 
BIT00= 1 

BIT9=8IT09 

BIT8=BIT08 

B]T7=8JT07 



(BITOO TO BITIS) 



CKFP8C0 FPllF FLTG PNT PRT B 
BASIC DEFINITIONS 

000100 
0000^0 
000020 
000010 
000004 
000002 
000001 

000004 
000010 

oooou 
oooou 
oooou 

000020 
000024 
000030 
000034 
000060 
000064 
000240 



1660 
1661 
1662 
1663 
1664 
166S 
1666 
1667 
1668 
1670 
1671 



000174 
000176 



000000 
000001 
000002 
000003 
000004 
000005 
000006 
000007 



000000 



000174 
000000 
000000 
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BIT6=BIT06 
BIT5=8IT05 
BIT4-8IT04 
BIT3=8IT03 
BIT2=BIT02 
BITIsfllTOI 
BIT0=8IT00 
"CPU" TRAP 
4 



C 2 
6-2 



SEQUENCE 



;*8ASIC 

ERRVEC- 

RESVEC= 

TBITVEC^ 

TRTVEC= 

BPTVEC= 

IOTVEC= 

PURVEC= 

EHTVEC= 

TRAPVEC 

TKVEC= 

TPVEC= 

PIRQVEC 

ACO 
AC1 
AC2 
AC3 
AC4 
ACS 
AC6 
AC? 



10 

:14 

14 
14 
20 
24 
30 
=34 
60 
64 
=240 
.SBTTL 
=X0 
=X1 
=X2 
=X3 
=X4 
=X5 
=X6 
=X7 



OTHER ERRORS 
ILLEGAL INSTRUCTIONS 



VECTOR ADDRESSES 

;;TIME OUT AND 
;; RESERVED AND 
;;'T' BIT 
;; TRACE TRAP 
; .-BREAKPOINT TRAP (BPT) 
;; INPUT/OUTPUT TRAP (lOT) **SCOPE** 
- 'POWER FAIL 

••EMULATOR TRAP (EMT) **ERROR*» 
;;"TRAP" TRAP 
;;TTY KEYBOARD VECTOR 
;;TTY PRINTER VECTOR 
;;PROGRAM INTERRUPT REQUEST VECTOR 
FPP REGISTER DEFINITIONS 



000200 000137 004346 



.SBTTL TRAP CATCHER 

;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".♦2. HALT" 
.•♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
.-♦LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 

DISPREG: .WORD 0 ; .-SOFTWARE DISPLAY REGISTER 

SWREG: .WORD 0 SOFTWARE SWITCH REGISTER 

.SBTTL STARTING ADDRESS(ES) 

JMP arSTART ;;JUMP TO STARTING ADDRESS OF PROGRAM 
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SEQUENCE 



001100 
001100 
001102 
001103 
001104 
001106 
001110 
001112 
001114 
001115 
001116 
001120 
coil 22 
001124 
001126 
001130 
001132 
001134 
001135 
001136 
001 140 
001142 
001144 
001146 
001150 
001152 
001154 
001155 
001156 
001157 
001160 



001162 
001164 
001166 
001170 
001 172 
001174 
001176 
001200 
001202 
001204 
001206 
001210 
001212 
001214 
001216 
001220 
001222 
001224 
001226 



001100 

000000 
000 

000 
000000 
000000 
000000 
000000 
000 
001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000 
000 
000000 
177570 
177570 
177560 
177562 
177564 
177566 
000 
002 
012 
000 
000000 

000024 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



SBTTL COMMON TAGS 

**************************************************************** 

COMMON STORAGE LOCATIONS 



.••THIS 
•••USED 

SCMTA6: 



TABLE CONTAINS VARIOUS 
IN THE PROGRAM. 

.=1100 





.WORD 


0 


STSTNM: .BYTE 


0 


SCRFLG 


.BYTE 


0 


SICNT: 


.WORD 


0 


SLPADR 


.WORD 


0 


SLPERR 


.WORD 


0 


SERTTL 


.WORD 


0 


SITEMB 


.BYTE 


0 


SERMAX 


.BYTE 


1 


SERRPC 


.WORD 


0 


SGDADR 


.WORD 


0 


S8DADR 


■ .WORD 


0 


SGDDAT 


.WORD 


0 


S8DDAT 


.WORD 


0 




.WORD 


0 




.WORD 


0 


SAUTOe 


• .BYTE 


0 


SINTAG 


: .BYTE 


0 




.WORD 


0 


SWR: 


.WORD 


DSWR 


DISPLAY: .WORD 


DDISP 



$TKS: 
$TK8: 
$TPJ>: 
$TP8: 
SNULL : 
SFILLS 
SFILLC 
fTPFLG 
SREGAD 



$REGO 
SREG1 
$REG2 
$REG3: 
$REG4 
SREG5 
SREG6 
$REG7 
SREG10: 
$REG11: 
$REG12: 
SRE613: 
$REG14: 
$REG15: 
$RE616: 
$REG17: 
SREG20: 
$REG21 : 
$REG22: 



177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.REPT 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 
2 

12 

0 

0 

$fM3 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 



.-.START OF COMMON TAGS 

.-CONTAINS THE TEST NUMBER 
.CONTAINS ERROR FLAG 
.-CONTAINS SUBTEST ITERATION COUNT 
.-CONTAINS SCOPE LOOP ADDRESS 
.CONTAINS SCOPE RETURN FOR ERRORS 
.-CONTAINS TOTAL ERRORS DETECTED 
.-CONTAINS ITEM CONTROL BYTE 
.-CONTAINS MAX. ERRORS PER TEST 
.-CONTAINS PC OF LAST ERROR INSTRUCTION 
.-CONTAINS ADDRESS OF 'GOOD' DATA 
.-CONTAINS ADDRESS OF 'BAD' DATA 
.-CONTAINS 'GOOD' DATA 
.-CONTAINS 'BAD' DATA 
.•RESERVED— NOT TO BE USED 

.-.-AUTOMATIC MODE INDICATOR 
.•.-INTERRUPT MODE INDICATOR 

.-ADDRESS OF SWITCH REGISTER 
.-ADDRESS OF DISPLAY REGISTER 
.-TTY KBD STATUS 
.-TTY KBD BUFFER 

;TTY PRINTER STATUS REG. ADDRESS 
.TTY PRINTER BUFFER REG. ADDRESS 
.-CONTAINS NULL CHARACTER FOR FILLS 
.-CONTAINS » OF FILLER CHARACTERS REQUIRED 
.-INSERT FILL CHARS. AFTER A 'IINE FEED" 
.••TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
.-CONTAINS THE ADDRESS FROM 
.-WHICH ($REGO) WAS OBTAINED 



.CONTAINS 
.•CONTAINS 
.-CONTAINS 
.-CONTAINS 
.-CONTAINS 
.-CONTAINS 
.CONTAINS 
.-CONTAINS 
.CONTAINS 
.CONTAINS 
.-CONTAINS 
; CONTAINS 
.-CONTAINS 
.-CONTAINS 
.- CONTAINS 
.-CONTAINS 
.CONTAINS 
.-CONTAINS 
.-CONTAINS 



(($REGA0)40) 
(($REGAD)«2) 
(($REGAD)«4) 
(($REGA0)^6) 
( (SREGAD) ♦ 10) 
((SREGAD) ♦I 2) 
( (SREGAD) ^1 4) 
((SREGAD) ♦I 6) 
( (SREGAD) ^20) 
( (SREGAD) ^22) 
( (SREGAD) ^24) 
((SREGAD)^26) 
((SREGAD) ^30) 
( (SREGAD) ^32) 
( (SREGAD) ^34) 
( (SREGAD) «36) 
( (SREGAD) UO) 
((SREGAD)«42) 
((SREGAD) 444) 
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17 



001230 

001232 
001234 
001236 
001240 
001242 
001244 
001246 
001250 
001252 
001254 
001256 
001260 
001262 
001264 
00^266 
001270 
001272 
001274 
001276 
001300 
001302 
001304 
001306 
001312 
001313 
001314 



001316 
001316 
001320 
001322 
001324 
001326 
001330 
001332 
001334 
001336 
001336 
001337 
001340 
001342 
001344 



001346 
001347 



000000 
000024 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
207 
077 
015 
012 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000 
000 
000000 
000000 
000000 



000 
000 



377 
000 



377 



$REG23 

.REPT 

STMPO: 

STMPI : 

$TMP2: 

$TMP3: 

$TMP4: 

$TMP5: 

$TMP6: 

$TMP7: 

STMPI 0 

STMPI 1 

STMPI 2 

STMP13 

STMPI 4 

STMPi5 

STMPI 6 

STMPI 7 

STMP20 

STMP21 

STMP22 

STMP23 

STIMES 

SESCAPE 

SBELL: 

SQUES: 

SCRLF: 

SLF; 



;; CONTAINS ( (SRE6AD) +46) 



.WORD 0 
24 

.WORD 0 :;USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 ::USER DEFINED 

.WORD 0 ;:USER DEFINED 

.WORD 0 :;UScR DEFINED 

.WORD 0 :;USER DEFINED 

.UORD 0 ;;USER DEFINED 

.UORD 0 ;:USER DEFINED 

.WORD 0 ::USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 ::USER DEFINED 

.WORD 0 :;USER DEFINED 

.WORD 0 :;USER DEFINED 

.WORD 0 :;USER DEFINED 

.UORD 0 :;USER DEFINED 

.WORD 0 ;:USER DEFINED 

.WORD 0 ;;USER DEFINED 

.WORD 0 ::USER DEFINED 

.WORD 0 ::USER DEFINED 

.WORD 0 ::USER DEFINED 

0 .-.-MAX. NUMBER OF ITERATIONS 

:0 ; .'ESCAPE ON ERROR ADDRESS 

.ASCIZ <207><377><377> ;;C00E FOR BELL 

.ASCII /?/ ;: QUESTION HARK 

.ASCII <15> : .-CARRIAGE RETURN 

.ASCIZ <12> ;;LINE FEED 



.S8TTL 

;;*»»** 

.EVEN 

SMAIL: 

SMSGTy 

SFATAL 

STESTN 

SPASS: 

SDEVCT: 

SUNIT: 

SMSGAD: 

SMSGLG: 

SETABLE 

SENV: 

SENVM: 

SSWREG: 

SUSUR: 

SCPUOP: 

;• 

;* 

• * 

# 

• * 

inAMSI: 
SMTYPI : 

;• 



APT MAI LBOX-E TABLE 

********************************************************** 



.WORD 
.WORD 
.WORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 

.BYTE 
.BYTE 
.UORD 
.UORD 
.UORD 



AMS6TY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AMSGAD 

AMS6L6 

AENV 

AENVM 

ASUREG 

AUSUR 

ACPUOP 



.BYTE 
.BYTE 



AMAMS1 
AMTVPl 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR WfCER 
TEST NUMBER 
PASS COUNT 
DifVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 
APT ENVIRONMENT TABLE 
ENVIROIMENT BYTE 
ENVIRONMENT MODE BITS 
APT SUI TCH REGISTER 
USER SUITCHES 
CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 . 1 1 /05=02* 1 1 /20=03 . 1 1 /40=04 , 1 1 /45=05 
11/70=06. PDQ=07,Q=10 
BIT 10=:REAL TIME CLOCK 
BIT 9=FL0AT1NG POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
:;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE,BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC C0RE=001 
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001350 000000 

001352 000 

001353 000 

001 354 000000 

001356 000 

001357 000 
001360 000000 

001362 000 

001363 000 

001364 000000 
001366 000000 
001370 000000 
001372 000000 
001374 000000 
001376 000000 
001400 000000 
001402 000000 
001404 000000 
001406 000000 
001410 000000 
001412 000000 
001414 000000 
001416 000000 
001420 000000 
001422 000000 
001424 000000 
001426 000000 
001430 000000 
001432 000000 
001434 000000 
001436 000000 
001440 000000 
001442 



inADRI: .yoRO 

• * 

i«A«S2: .BrTE 
WTYP2: .BYTE 
$nADR2: .WORD 
SnAnS3: .BYTE 
$MTYP3: .BYTE 
SMADRS: .WORD 
SnAnS4: .BYTE 
$«TYP4: .BYTE 
$nA0R4: .WORD 
$VECT1: .WORD 
$VECT2: .WORD 
$BASE: .WORD 
SOEVM: .WORD 
$CDU1: .WORD 
$C0U2: .WORD 
$DDUO: .WORD 
$DDU1: .WORD 
$D0U2: .WORD 
$DDU3: .WORD 
SDDU4: .WORD 
SDDUS: .WORD 
$00U6: .WORD 
$DDU7: .WORD 
$00W8: .WORD 
$DDU9: .WORD 
$00U10: .WORD 
$D0U11: .WORD 
$00U12. .WORD 
$00U13: .WORD 
SDDUU: .WORD 
$DDU15: .WORD 
SETEND: 



AMADR1 

Af<A«S2 

AWTYP2 

AnADR2 

AfWIS3 

A«TYP3 

AMADRS 

AMAnSA 

A«TYP4 

AnADR4 

AVECT1 

AVECT2 

ABASE 

ADEVn 

ACDU1 

ACDU2 

ADDUO 

A0DU1 

A00W2 

AD0W3 

AD0U4 

A00U5 

A0DU6 

A00U7 

ADDU8 

A0DW9 

ADDU10 

ADDU11 

ADDW12 

ADDW13 

ADDU14 

AD0U15 



SEQUENCE 



300 NSEC BJPOLAR=002 

500 NSEC nos=003 

HIGH ADDRESS, BLK#1 

MEH.LAST ADDR.=3 BYTES. THIS WORD AND LOW OF "TYPE" ABOVE 

HIGH ADDRESS, M.S. BYTE 

MEM. TYPE ,BLK#2 

MEM. LAST ADDRESS, BLK#2 

HIGH ADDRESS, M.S. BYTE 

MEM. TYPE «6LK#3 

MEM.LAST ADDRESS«BLK#3 

HIGH ADDRESS, M.S. BYTE 

MEM. TYPE ,BLI0r4 

MEM.LAST ADDRESS,BLK/r4 

INTERRUPT VECT0R#1,BUS PRJ0RITY#1 

INTERRUPT VECT0R#2BUS PRI0RITY#2 

BASE ADDRESS OF EQUIPMENT UNDER TEST 

DEVICE MAP 

CONTROLLER DESCRIPTION UORDfl 

CONTROLLER DESCRIPTION W0RD#2 

DEVICE DESCRIPTOR UORDfO 
iDEVICE DESCRIPTOR U0RD#1 
; DEVICE DESCRIPTOR U0RD#2 
;DEVICE DESCRIPTOR yORD#3 
IDEVICE DESCRIPTOR W0RD#4 
; DEVICE DESCRIPTOR U0RD#5 
; DEVICE DESCRIPTOR W0RD#6 
; DEVICE DESCRIPTOR U0RD#7 
IDEVICE DESCRIPTOR «0RD#8 
;DEVICE DESCRIPTOR U0RD#9 
;DEVICE DESCRIPTOR WORD#10 
;DEVICE DESCRIPTOR UORDfl 1 
;DEVICE DESCRIPTOR U0RD#12 
;0EVICE DESCRIPTOR W0RD#13 
;DEVICE DESCRIPTOR W0RD#14 
; DEVICE DESCRIPTOR U0RD#15 
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1676 
1678 



SBTTL ERROR POINTER TABLE 

*THIS TABLE CONTAINS THE INFORnATION FOR EACH ERROR THAT CAN OCCUR. 
•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 



•N0TE1 
•N0TE2i 











;* 


EM 












;* 


DH 


;; POINTS TO 










; • 


DT 


• • pniMTc Tn 










• * 


DF 


;; POINTS TO 










SERRTB: 






000267 






fiPDT 
,ncr 1 


1 




00U42 


040514 


067106 


071474 




unon 

c 


EM1.DH1.DT1.DF1 


vw 1 HJC 


0&0S46 


0671 7fi 




.-ITEM 


unon 

3 


EM2,DH2,DT2,DF2 








071474 


.•ITEM 


unpn 

4 


EM3.DH3,DT3,DF3 




040707 
w"tw f yjf 


067106 


071474 




• WUnl/ 


EM4,DH4.DT4,0F4 














001 502 


041014 


067106 


07'i474 




• WUnl/ 

o 


EM5.DH5,DT5,DF5 


001512 


041121 


067106 


071474 


• ITFM 


. WUnl/ 

7 


EM6,0H6,0T6.DF6 


001522 


041226 


0671 06 

wu ■ ■ Vw 


071474 


• ITFM 

cn 


• wuni/ 

10 


EM7.DH7.DT7,DF7 


001 


w"t 1 J J J 


0671 06 

vw> I Vw 


071474 




• WUnl/ 


EM10,DH10,DT10.DF10 










• ITFM 

• i 1 cn 


1 1 
1 1 


Vw 1 J^C 


■ ■? 1/ 


0671 06 

W' 1 Vw 


071474 




unpn 

• WUnl/ 


EM11.DH11.DT11,DF11 










• ITFM 

• i 1 cn 


1? 


001 552 


041547 

w"l > f 


067106 

WWf > WW 


071474 




uflftn 

• wunv 


EM12.DHl2,DT12,Df12 










• ITFM 

1 1 1 cn 

• ITFM 
. i i cn 


IT 


001562 

wV 1 


041656 

w*t 1 WW 


067106 

ww> I wW 


071474 


• WUnl/ 

14 


EM13,DH13.DT13.DF13 


001572 

WW 1 b 


041772 

w"t f f f b 


067106 

wW> WW 


071474 

wf 1 ^ f ^ 


• ITFM 

• i 1 cn 


unpb 

1 J 


EM14,DH14,DT14.DF14 


00160? 

WW 1 WC 


042104 

W^b I W^ 


067106 

wW> 1 wW 


071474 

W" ■ ^ r ^ 




unpn 


EM15,0M15.DT15,DF15 










• ITFM 

# i ■ cn 


16 


001612 

WW 1 W I C 


042216 


067106 

WW ■ 1 WW 


071474 




.WORD 


EM16,DH16,0T16.DF16 










;ITEM 


17 


001622 

WW 1 UCC 


042313 


067237 

WW* 


071560 

w f 1 WW 




.WORD 


E«17,0H17,DT17,0F17 










;1TEM 


20 


001632 

WW I WM#b 


042370 


067106 

WW ■ 1 WW 


071600 

w » 1 www 




.UORD 


EM20.DH20.DT20.DF20 










.-ITEM 


21 


001642 


042422 


067312 


071622 




.WORD 


EM21.0H21.DT21,DF21 










;ITEM 


22 


001652 


042454 


067401 


071644 




.WORD 


EM22.DH22.DT22,DF22 










;ITEM 


23 


001662 


042535 


067106 


071662 




.WORD 


EM23,DH23,DT23.DF23 










;ITEM 


24 


001672 


042612 


067106 


071662 




.WORD 


EM24,0H24,DT24,DF24 










.•ITEM 


25 


001702 


042710 


067106 


071662 




.WORD 


EM25,DH25,DT25,DF25 










;ITEM 


26 


001712 


042775 


067106 


071662 




.UORD 


EM26,DH26.DT26,DF26 










;ITEM 


27 



IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 



CKFPBCO FP11F FLTG PNT PRT B MACRO Ml 
ERROR POINTER TABLE 



001 Ice 


A/ 371 A 


AA71 AA 
Oor^ lUO 


A71 AA3 
Or lOOC 


001 lie 


A/ TA7T 


AA71 AA 

06^ lOo 


A71 AA3 

Or 166a 


AA1 7/ ^ 

001 ff^e 


A/ T1 / C 


AA71 AA 
OOr lOO 


A71 AA3 

Or 166c 


AA1 7C^ 

001 fyc 


A/ OC^A 


AA71 AA 

OOr 106 


A71 AA3 

Or 166c 


001 iftc 




AA71 AA 
OOr lUO 


A71 A&3 

Or 166c 


001 ffi 


A/ T3'SC 


AA71 AA 
OOf lUO 


A71 AA3 

Or 166c 


OOeUUc 


AZT3A7 


AA71 AA 

UOr lUO 


A714LA3 
Or I06c 


OOcOlc 




AA71 AA 
OOr lUO 


A71 AA3 
Or 1 66c 


OOeUce 


AA TAin 


Ail71AA 
Wif lUO 


A71 AA3 
Ur 1 OOc 


nnoATO 
OUeUjc 




UOr 1 vO 


Ur lOOc 


OOeU^e 


AA^AAC 
UhJ4i03 


AA71AA 
UOr lUO 


Ur lOOc 


AAonco 


A/le/A 
UH j3HU 


UOr 1 UO 


Ml lOOc 




U«»jO' I 


AA71 AA 

UO ' 1 wO 


071 /\A3 
ur 1 OOc 


nn5n73 


nAAn33 


UO r 1 UO 


ur looc 


UUc 1 MC 


A^^A7A 


UOr 1 UO 


071 t\t\7 
ur 1 OOc 


UUc 1 1 c 


0AA1 A'^ 


AA71 AA 
UO r 1 UO 


\Jf 1 OOc 


nA31 33 


AAA 3 30 


AA71 AA 
UO r 1 UO 


071 AA3 
Ur 1 OOc 


AA31 »3 


U*»*t j3*t 


UOr 1 UO 


071 

Ur 1 OOc 


on3i^3 


AAAAP7 


AA71 AA 

UOr 1 UO 


071 

Ur lOOc 


AAOI CO 

UUe 1 3e 


AAAA7S 
UH*lHf 3 


UOr 1 UO 


071 AO 
Ur lOOc 


AA31A5 


U3c3c3 


UOr lUO 


071 7XL 
Ur 1 r jH 


UUc 1 r c 




UOr 1 UO 


071 7^A 

Ur 1 r 


Wccvc 


VJCCf J 


UOr lUO 


071 7XA 
Ur 1 r j*» 


Wcc lc 


ACO/AA 

U3CHU0 


AA71 AA 
UOr 1 UO 


071 7'?A 
Ur 1 r j«» 


WJCCCC 




UOr IvO 


071 7^A 
Ur 1 r J«» 


002232 


052567 


067106 


071 734 


0022(,2 


052671 


067106 


071734 


002252 


053065 


067106 


071734 


002262 


053261 


067106 


071734 
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SEQUENCE 20 





.WORD 


ITEM 


30 




.WORD 


ITEM 


31 




.WORD 


ITEM 


32 




.WORD 


ITEM 


33 




.WORD 


ITEM 


34 




.WORD 


ITEM 


35 




.UORD 


ITEM 


36 




.WORD 


ITEM 


37 




.WORD 


ITEM 


40 




.WORD 


ITEM 


41 




.WORD 


ITEM 


42 




.WORD 


ITEM 


43 




.UORD 


ITEM 


44 




.WORD 


ITEM 


45 




.UORD 


ITEM 


46 




.UORD 


ITEM 


47 




.UORD 


ITEM 


50 




.UORD 


ITEM 


51 




.UORD 


ITEM 


52 




.UORD 


ITEM 


53 




.UORD 


ITEM 


54 




.UORD 


ITEM 


55 




.UORD 


ITEM 


56 




.UORD 


ITEM 


57 




.UORD 


ITEM 


60 




.UORD 


ITEM 


61 




.UORD 


ITEM 


62 




.UORD 


ITEM 


63 




.UORD 



EM27,DH27,DT27.DF27 

EM30,DH30,DT30.DF30 

EM31,DH31.DT31,DF31 

EM32.DH32,0T32,DF32 

EM33,DN33«DT33.DF33 

EM3A,DH34,DT34,DF34 

EM35.DH35,DT35.DF35 

EM36,DH36.DT36.DF36 

EM37,DH37.DT37,DF37 

EM40«DH40,DT40,DF40 

EM41,DN41,DT41,DF41 

EM42«DH42,DT42,DF42 

EM43,DH43,0T43.DF43 

EM44,DH44,DT44,DF44 

EM45.DH45.DT45.DF45 

EM46,DH46,DT46,DF46 

EM47,DH47,DT47.DF47 

EM50.DH50.DT50,DF50 

EM51,DH51,DT51,0F51 

EM52.DH52,DT52,DF52 

EM53,DM53,DT53,DF53 

EM54,DH54.DT54,DF54 

EM55,0M55,DT55,DF55 

EM56,DH56.DT56,DF56 

EM57,DH57.DT57.DF57 

EM60,DH60.DT60,DF60 

EM61.DH61.DT61,DF61 

EM62,DH62,DT62,DF62 

EM6?,DH63.DT63«DF63 



Cr.FPBCO fPllF fLTG PNT PRT B MACRO Hi 
ERROR POINTER TABLE 



002272 
002302 
002312 
002322 
002332 
002342 
002352 
002362 
002372 
002402 
002412 
002422 
002432 
002442 
002452 
002462 
002472 
002502 
002512 
002522 
002532 
002542 
002552 
002562 
002572 
002602 
002612 
002622 



053372 
053511 
053624 
053673 
053756 
054007 
054037 
054037 
054071 
054200 
054271 
054361 
054471 
054554 
054750 
055144 
055256 
055423 
055532 
055641 
055750 
044565 
044642 
044720 
044776 
045055 
045133 
045212 



067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
0671 06 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067106 
067447 
067447 
067447 



071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071 734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071662 
071662 
071662 
071662 
072022 
072022 
072022 
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SEQUENCE 2 



J TEH 


64 




.WORD 


I TEH 


65 




.WORD 


I TEH 


66 




.WORD 


I TEH 


67 




.WORD 


I TEH 


70 




.WORD 


I TEH 


71 




.WORD 


J TEH 


72 




.WORD 


I TEH 


73 




.WORD 


I TEH 


74 




.WORD 


J TEH 


75 




.WORD 


I TEH 


76 




.WORD 


I TEH 


77 




.WORD 


J TEH 


100 




.WORD 


I TEH 


101 




.WORD 


I TEH 


102 




.WORD 


JTEH 


103 




.WORD 


I TEH 


104 




.UORD 


I TEH 


105 




.WORD 


JTEH 


106 




.UORD 


ITEM 


107 




.WORD 


ITEH 


110 




.WORD 


I TEH 


111 




.UORD 


ITEH 


112 




.UORD 


ITEH 


113 




.UORD 


ITEH 


114 




.UORD 


ITEH 


115 




.UORD 


ITEH 


116 




.UORD 


ITEH 


117 




.UORD 


ITEH 


120 



EH64,DH64,DT64,DF64 

EH65,DH65,DT65,DF65 

EH66,DH66,DT66.DF66 

EH67.DH67,DT67,DF67 

EM70.DH70,DT70.DF70 

EM71.DH71.DT71,DF71 

EM72,DH72,DT72.DF72 

EM73,t)H73,DT73.DF73 

EH74,DH74,DT74,DF74 

EH75,DH75.DT75.DF75 

EH76.DH76,DT76.DF76 

EH77,DH77.DT77.DF77 

EH100«DH100,DT100,DF100 

EH101,DH101,DT101,DF101 

EH102,DH102,DT102,DF102 

Eni03«DHl03,DT103«DF103 

EH104.DH104,DT104«DF104 

Eni05«DHlOS«DT105,DF105 

EH106.DH106,DT106.DF106 

EH107.DH107.DT107.DF107 

EH110,DH110.DT110,DF110 

EH111.DH111.DT111.DF111 

EH112.DH112.DT112.DF112 

EH113,DH113,0T113,DF113 

EH114.DN114,DT114,DF114 

EH115.0H115,DT115.DF115 

EH116,DH116,DT116,DF116 

EH117,DH117,DT117,DF117 



CKFPBCO FPIIF FLT6 PNT PRT B MACRO Nil 13 20-OCT-81 08:27 PAGE 8-3 SEQUENCE 2? 

ERRUR POINTER TABLE 



002632 


045350 


067447 


072022 




.WORD 


Eni20.DHl20,DT120,DF120 










;ITE« 


121 


0026A2 


045506 


067447 


072022 




.WORD 


EM121.0H121.DT121.DF121 










;ITE« 


122 


002652 


045643 


067447 


072022 




.WORD 


EM122.DH122.DT122.DF122 










;JTEM 


123 


002662 


046000 


067106 


071662 




.WORD 


Eni23,DHl23,Dri23,DF123 










;ITE« 


124 


002672 


046056 


067106 


071662 




.WORD 


Eni24,DHl24,DT124,DF124 










;iTEM 


125 


002702 


046135 


067106 


071662 




.UORD 


EM125,DH12S«DT125,DF125 










:ITE« 


126 


002712 


046213 


067106 


071662 




.WORD 


Eni26.DH126.DT126,DF126 










;ITE« 


127 


QQ2722 


046272 


067447 


072022 




.WORD 


E«127.DH127,DT127,DF127 










;ITEM 


130 


002732 


046350 


067447 


072022 




.WORD 


Eni30.DHl30.DT130,DF130 










;JTEM 


131 


002742 


046427 


067447 


072022 




.WORD 


EM131.DHl31.DT13nDF131 










;ITEM 


132 


002752 


046565 


067106 


071662 




.UORD 


Eni32,DH132.DT132,DFl32 










;ITE« 


133 


002762 


046723 


067447 


072022 




.UORD 


EM133,DH133,DT133,DF133 










;ITE« 


134 


002772 


047061 


067447 


072022 




.UORD 


EM134«DH134,DT134,DF134 










;ITE« 


135 


003002 


047216 


067106 


071662 




.UORD 


E«135,DH135.DT135.DF135 










;ITE« 


136 


003012 


047353 


067447 


072022 




.UORD 


Eni36,DH136,DT136»DFl36 










;ITE« 


137 


003022 


047510 


067447 


072022 




.UORD 


E«137.DH137,DT137.DF137 










;ITE« 


140 


003032 


047576 


067447 


072022 




.UORD 


Eni40,DHl40,DT140,DF140 










.-ITEM 


141 


003042 


044565 


067447 


072022 




.UORD 


EH141,DH141.DT141.DF141 










;ITE« 


142 


003052 


044642 


067447 


C72022 




.UORD 


E«142.DH142,DT142.DF142 










;ITE« 


143 


003062 


047665 


067447 


072022 




.UORD 


Eni43,DHU3,DT143,DF143 










.-ITEM 


144 


003072 


047743 


067447 


072022 




.UORD 


EN144,DH144.DT144,DF144 










;iTEM 


145 


003102 


050022 


067106 


071662 




.UORD 


Eni45,DHl45,DT14S,DF145 










;ITE« 


146 


WJ lie 


050167 

VJV IQf 


01^7106 

vOr 1 vw 


vr lOWC 






fMLft nm^A li^^LA dfi^a 

cn 1 *io#irn i*(o«v 1 i*iD«vr iio 










;ITE« 


147 


003122 


050334 


067106 


071662 




.UORD 


E«147.DH147,DT147.DF147 










;ITE« 


150 


003132 


050500 


067106 


071662 


.UORD 


EM150,DN1S0,DT150.DF150 










;ITE« 


151 


AAV 4 ^ ^ 

003142 


050644 


067447 


072022 




.UORD 


EM151 ,DH151 ,DT151 «DF151 


003152 


050732 


067447 


072022 


;|TE« 


152 
.UORD 


Em52,0Hl52,DT152.DF152 










;ITE« 


153 


003162 


046000 


067447 


072022 


.UORD 


EM153.DH153.DT153.DF153 










;JTEH 


154 


003172 


046056 


067447 


072022 




.UORD 


Eni54,DHlS4,DT154,DF154 



CKFPBCO FPIIF FLTG PNT PRT B HACRO Nil 13 20-OCT-81 08:27 PAGE 8-4 
ERROR POINTER TABLE 











: I TEH 


155 




003202 


051021 


067447 


072022 




.WORD 


EH155.DH155,0T155.DF155 










; i TEW 


156 


EH156,DH156,0T156.DF156 


003212 


051077 


067447 


072022 




.WORD 

15^ 










; I TEH 


003222 


051 156 


067106 


071662 




.WORD 


EH157.DH157,0T157,0F157 










; J TEN 


160 


003232 


051323 


067447 


072022 




.WORD 


EH160,DH160,DT160.DF160 










; I TEH 


161 


003242 


051461 


067106 


071662 




.WORD 


EH161,DH161,DT161.DF161 










.ITEH 


162 


003252 


051626 


067106 


071662 




.WORD 


EH162,DH162,DT162«DF162 










;ITEH 


163 


003262 


051772 


067447 


072022 




.WORD 


EH163,DH163,DT163«DF163 










;ITEH 


164 


003272 


052127 


067106 


071662 




.WORD 


EH164.DH164.DT164,DF164 










; I TEH 


165 


003302 


056060 


067447 


072076 




.WORD 


EH165,DH165,0T165«0F16S 










;JTEH 


166 


003312 


056144 


067447 


072076 




.WORD 


EH166,DH166,DT166,DF166 










;ITEH 


167 


003322 


056227 


067447 


072076 




.WORD 


EH167.0H167,0T167,DF167 










;ITEH 


170 


003332 


056261 


067447 


072076 




.WORD 


EH170,OH170,DT170,DF170 










:ITEH 


171 


003342 


056347 


067447 


072076 




.WORD 


EH171.DH171,0T171,DF171 










;JTEH 


172 


003352 


056472 


067447 


072076 




.WORD 


EH172,DH172,0T172,DF172 










;JTEH 


173 


003362 


056557 


067447 


072076 




.WORD 


EH173,DH173,0T173,DF173 










:iTEH 


174 


003372 


056725 


067447 


072076 




.WORD 


EH174.DH174,DT174,0F174 










;ITEH 


175 


003402 


057073 


067447 


072076 




.WORD 


EH175.0H175,0T175,DF175 










;JTEH 


176 


003412 


057205 


067447 


072076 




.WORD 


£H176.DH176.DT176,0F176 










;ITEH 


177 


003422 


057271 


067546 


072164 




.WORD 


EH177.0H177,0T177.DF177 










;ITEH 


200 


003432 


057325 


067447 


072076 




.WORD 


EH200,DH200,DT200,DF200 










;ITEH 


201 


003442 


057357 


067447 


072076 




.WORD 


EH201,0H201.DT20KDF201 










;ITEH 


20? 


003452 


057446 


067447 


072076 




.WORD 


EH202 , DH202 , DT202 , DF 202 










;ITEH 


203 


003462 


057610 


067447 


072076 




.WORD 


EH203,OH203,DT203,DF203 










;ITEH 


204 


003472 


057752 


067447 


072076 




.WORD 


EH204 , DH204 , DT204 , DF 204 










;iTEH 


205 


003502 


060040 


067447 


072076 




.WORD 


EH205,DH20S,DT205«DF205 










;ITEH 


206 


003512 


060206 


067447 


072076 




.WORD 


EH206 . DH206 , D T206 . DF 206 










;ITEH 


207 


003522 


060354 


067647 


072174 




.WORD 


EH207 , 0H207 . 0 T207 , DF 207 










;ITEH 


210 


003S32 


060416 


067737 


072246 




.WORD 


EH210,DH210,DT210.DF210 










;1TEH 


211 



CKFPecO FP11F 


FLTG PNT 


PRT B 


MACRO H1 113 20-0CT-81 


ERROR POINTER 


FABLE 








003542 


060460 


067737 


072174 


.WORD 






;ITEH 212 


003SS2 


060624 


06^647 




WORD 






•ITFM 213 


003562 


061010 


067647 


07??70 


WORD 

•ITFM 214 


003572 


061174 


067647 


07PP70 


UQRD 






• ITFM 21 S 


003602 


061360 


067647 


072270 


WORD 








■ITFM ?16 


003612 


061544 


067737 


072174 


UORD 








•ITFM 217 


003622 


061 726 


070000 


072352 


UORD 








•ITFM 220 


003632 


061770 


067607 


072174 


.WORD 








•ITFM 221 


003642 


062220 


067737 


072174 


UORD 










•ITFM 727 


003652 


062464 


067607 


072174 


UORD 










•ITFM 223 


003662 


062715 


067737 


072174 


UORD 










•ITFM 224 


003672 


063162 


067607 


072174 


UORD 








•ITFM 225 


003702 


063413 


067737 


072174 


.UORD 










■ITFM 226 


003712 


063660 


070053 


072270 


.UORD 








•ITEM 227 


003722 


064013 


070142 


072270 


UORD 








■ITEM 230 


003732 


064146 


070053 


072270 


.UORD 










•ITFM 231 


003742 


064302 


070142 


072246 


.UORD 










■ITFM 232 


003752 


060416 


070142 


072174 


UORD 










•ITEM 233 


003762 


064436 


070231 


072372 


UORD 










•ITFM 234 


003772 


064475 


070272 


072426 


.UORD 










•ITEM 235 


004002 


064561 


070360 


072446 


UORD 










•ITEM 236 


004012 


064627 


070420 


072426 


UORD 










•ITFM 237 


004022 


064662 


070272 


072426 


UORD 










•ITEM 240 


004032 


064746 


070506 


072426 


UORD 








•ITFM 241 

#11 krl b~ ■ 


004042 


065002 


070231 


072372 


.UORD 










•ITFM 242 


004052 


065105 


070506 


072426 


UORD 








•ITEM 243 


004062 


065141 


070231 


072372 


.UORD 










.-ITEM 244 


004072 


065244 


070231 


072372 


.UORD 










;ITEM 245 


004102 


065303 


070231 


072372 


.UORD 



EM211,DH211,DT211.DF211 

EH212,DH212,DT212,DF212 

EM213,DH213,DT213,0F213 

EH214,DH214,DT214,DF214 

EM215,DH215,DT215,DF215 

EM216,DH216,DT216,DF216 

EH217,DH217.DT217.DF217 

EM220 . DH220 ,DT220 , DF 220 

EM221,DH221,DT221,DF221 

en222.!>H222. 01222. Vf 222 

EM223,0H223.0T223.0F223 

EM224,DH224«DT224,DF224 

EH225,DH225,0T225,DF225 

En226,DH226,DT226,DF226 

EM227,DH227,DT227.0F227 

EM230 , DH230 , DT230 , DF 230 

EH231,DH23UDr231,DF231 

EM232,DH232,DT232,DF232 

EM233.DH233,DT233,DF233 

EM234,DH234,0T234,DF234 

EM235,DH235.DT235.DF235 

EM236 , OH236 , D T236 , DF 236 

EM237,DH237,DT237,0F237 

EM240 ,DH240,Dr240,DF240 

EM241,DH241,DT241.DF241 

EH242,DH242,DT242«DF242 

EM243,DH243,DT243.DF243 

EH244 ,DH244 .DT244 ,DF244 

EM245.DH245,DT245,DF24S 



CKfPeCO FPIIF fLTG PNT PRT B 
ERROR POINTER TABLE 
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SEQUENCE 



1679 
1680 
1681 











;ITE« 246 




0OA112 


044175 


067106 


071662 


.WORD 


EH246,DH246,DT246,DF246 








rlTEW 247 




0041 22 


065365 


070576 


072460 


.WORD 


EH247.DM247.DT247.DF247 










;ITE« 250 


004132 


065421 


070643 


072476 


.WORD 


EH250,DH250,DT250,DF250 










■ITEM 251 


004142 


065453 


070643 


072476 ' 


.WORD 


EH251.DH251.DT251,DF251 










•I TEH 252 


EH252.DH252.DT252,DF252 


004152 


065506 


067176 


072510 

< 


.UORD 
•ITEM 253 


004162 


065577 


067106 


072522 


.WORD 


EH253,DH253,DT253,DF253 










•I TEW 254 


004172 


065663 


A^ ^4 A^ 

067106 


072522 


.WORD 
•ITEM 255 


EH254.DH254,DT254,DF254 


004202 


065750 


AV *V4 A^ 

067106 


072^22 


.UORD 
I TEW 256 


EH255.DH255.DT255,DF255 


004212 


066036 


A^ ^ 4 Ay 

067106 


072522 


.UORO 


EH256,DH256,DT256,DF256 










■J TEH 257 


004222 


066125 


067106 


072522 


.UORD 


EH257.DH257.DT257.DF257 










'J TEN 260 


004232 


066213 


A^ ^ 4 A^ 

067106 


072522 


.UORD 


EH260,DH260,0T260,DF260 










r vr>M ^x 4 

'I TEH 261 


004242 


AXX TA'% 

066302 


A^ "74 

067106 


072522 


.UORD 


EH261 ,DH261 ,DT261 ,DF261 










'I TEH 262 


004252 


AXZ 

066372 


A^ 7i AX 

06^106 




.UORD 


EH262 . DH262 , D T262 , DF 262 










■I TEH 263 


004262 


066463 


AX 71 Ax 

06^106 


072522 


.UORD 


EH263 ,DN263,DT263 ,DF 263 










I TEH 264 


Aft/ 575 






Ur CJCC 




nuSAA MOAi T%t7AL 










•I TEH 265 


004302 


066635 


067106 


072522 ' 


.UORD 


EH265.DH265,DT265,DF265 










I TEH 266 


004312 


066722 


070703 


072510 ' 


.UORD 


EH266,DH266.DT266,DF266 










•J TEH 267 


004322 


067023 


067447 


072076 ' 


.UORD 


EH267,DH267.DT267.DF267 



004332 
000046 

000046 034024 
000052 

000052 000000 



SBTTL ACT11 HOOKS 



1682 



004332 



HOOKS REQUIRED BY ACT11 
$SVPC=. 
.=46 
SENDAD 

.=52 

.UORD 0 
.=$SVPC 
SBTTL APT PARAHETER BLOCK 



;SAVE PC 

:;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET LOC.52 TO ZERO 
;; RESTORE PC 



004332 

000024 
000024 000200 

000044 
000044 004332 

004332 



SET LOCATIONS 24 AMD 44 AS REQUIRED FOR APT 



.SX=. :;SAVE CURRENT LOCATION 

.=24 ;;SET POUER FAIL TO POINT TO START OF PROGRAH 

200 ;;FOR APT START UP 

.=44 ;;POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR : .-POINT TO APT HEADER BLOCK 

.-.SX .-.RESET LOCATION COUNTER 



CKfPBCO FP11F FLTG PNT PRT B 
APT PARAMETER BLOCK 
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SEQUENCE 26 



004332 
004332 
004334 
004336 
004340 
004342 
004344 

1683 
1684 

1685 004346 



004346 
004352 
004354 
004360 
004362 

004366 
004374 
004402 
004410 
004416 
004424 
004432 
004440 
004446 
004454 
004460 
U04464 



004472 
004500 
004506 
004514 
004522 
004524 
004530 
004532 
004540 
004542 
004546 
004554 
004560 
004566 



004574 
004600 
004606 
004614 
004622 
004630 



000000 
001316 
000010 
000040 
000000 
000052 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
013737 
005037 
005037 
112737 



012737 
012737 
012737 
012737 
005046 
012746 
000006 
012737 
000402 
062706 
012737 
005037 
012737 
012737 



013746 
012737 
012737 
012737 
^22777 
001012 



001100 

001140 

001100 

034110 
000340 
034426 
000340 
036570 
000340 
036654 
000340 
033404 
001302 
001304 
000001 



034070 
000340 
000002 
004542 

004532 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 
033372 



001115 



000014 
000016 
034070 
000010 



000010 
000012 
034076 
004560 
004566 



000004 
004634 
177570 
177570 
\77777 



000010 

001106 
001110 



000004 
001140 
001142 
174310 



***************************************************************** 

'; SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPH DIAGNOSTIC 
rlNTERFACE SPEC. 
SAPTHD; 

$HIBTS: .WORD 0 
SMBADR: .WORD $MAIL 
$TSTM: .WORD 10 
SPASTM: .WORD 40 
SUNITM: .WORD 0 



::TW0 HIGH BITS OF 18 BIT MAILBOX ADDR. 
; .-ADDRESS OF APT MAILBOX (BITS 0-15) 
;;RUN TIM Of LONGEST TEST 

;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNI r (QUICK VERIFY) 
.ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 



$ETEND-SNAIL/2 :;LENGTN MAI L60X-E TABLE (WORDS) 



START: 
.S8TTL 



INITIALIZE THE COMMON TAGS 



;; CLEAR THE COMMON TAGS (tCMTAG) AREA 



MOV 
CLR 
CMP 
6NE 
MOV 

.-.•INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
M0V6 



; .-FIRST LOCATION TO BE CLEARED 
;; CLEAR MEMORY LOCATION 



.-.-LOOP BACK IF NO 
.-.-SETUP THE STACK POINTER 



#$CMTAG.R6 

(R6>* 

#SUR.R6 :;DONE? 

#STACK.SP 
FEW VECTORS 

mCOPE.MIOTVEC ;;IOT VECTOR FOR SCOPE ROUTINE 
#340.8J'I0TVEC*2 .-.-LEVEL 7 

mRROR.MEMTVEC .-;EMT VECTOR FOR ERROR ROUTINE 
#340,a4'EMTVEC«2 ;:LEVEL 7 

«$TRAP,a#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340,a#TRAPVEC*2;LEVEL 7 
^SPURDN.MPWRVEC ;:POUER FAILURE VECTOR 
#340.a#P«RVEC*2 .-.-LEVEL 7 



.-.-SETUP END-OF -PROGRAM COUNTER 
.-.'INITIALIZE NUMBER OF ITERATIONS 
.-.•CLEAR THE ESCAPE ON ERROR ADDRESS 
- 'ALLOW ONE ERROR PER TEST 
;; INITIALIZE THE "t-SIT" TRAP VECTOR. THEN LOAD LOCATION "JRTRN". IN 
.-.-THE "END-OF -PASS" ($EOP) ROUTINE. WITH A 'T»TI" OR "UTT". 



$ENOCT.$EOPCT 
$TIMES 
$ESCAPE 
#1 .SERMAX 



000006 034070 64$: 



MOV 
MOV 
MOV 
MOV 
CLR 
MOV 
RTT 
MOV 
BR 
ADD 
MOV 
CLR 
MOV 
MOV 
.-.-SIZE FOR A 
.-.-EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 



f$RTRN,a#TBITVEC ;;SET '7" BIT VECTOR TO $RTRN 
#340.a#TBITVEC*2 ; .'LEVEL 7 



65$ 
66$ 



#RTJ.SRTRN 
«6SS,a#RESVEC 

-(SP) 

#64$. -(SP) 

#RTT,$RTRN 
66$ 

*10.SP 



;;SET $RTRN TO A RTI 
;;TRY TO DO A RTT 
; .-DUMMY PS 
.-.-AND PC 
- - TRY THE RTT 

••RTT IS LEGAL— SET $RTRN TO A RTT 



...w.-. :;RTT ILLEGAL—CLEAN OFF THE STACK 

#RESVEC*2.a#RESVk ;;RESTORE TRAP CATCHER 
$T8IT ;; CLEAR "7" BIT SWITCH 

#..$LPADR .-.-INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#.,$LPERR .-.-SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 



•-1". SETUP FOR A 
arERRVEC,-(SP) 
#67$.a#ERRVEC 
#DSWR,SWR 
#DDISP. DISPLAY 

#-i.aswR 

69$ 



SOFTWARE SWITCH REGISTER. 
.-.-SAVE ERROR VECTOR 
.-.-SET UP ERROR VECTOR 
: .-SETUP FOR A HARDWARE SWICH REGISTER 
.-.-AND A HARDWARE DISPLAY REGISTER 
.-.-TRY TO REFERENCE HARDWARE SWR 
.-.-BRANCH IF NO TIMEOUT TRAP OCCURRED 



CKFPBCO FP11F FLTG PNT PRT B 
INITIALIZE THE COmON TAGS 



1686 



004632 
0C;63A 
004640 
004642 
004650 
004656 
004662 
004666 
004674 
004676 
004704 



000403 
012716 
000002 
012737 
C12737 
012637 
005037 
132737 
001403 
012737 



004642 

000176 
000174 
000004 
001324 
000200 

001340 



004704 


005227 


}77777 


004710 


001 u47 






yjccfjf 


UjhUch 


nn/ 7jr\ 
UUh f cU 






004722 


104401 


004770 


UUh f CO 




UUUUhc 


UUh f JC 


UU 1 U 1 c 




004734 




001336 


004742 


001406 




004744 


025727 


001140 


004752 


001005 




004754 


104405 




004756 


000403 




004760 


112737 


000001 


004766 






004766 


000420 




005030 






1687 005030 


104401 


005036 


005034 


000434 




005126 






1688 005126 


104401 


005134 


005132 


000426 




005210 






1689 005210 


005037 


034104 


1690 005214 
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SEQUENCE 



001140 
001142 



001337 
001140 



000042 

000001 
000176 

001134 



67$: 
68$: 
69$: 



70$: 
.S8TTJ 

;;TyPk 



1691 
1692 



73$: 
74$: 

;;72$: 



;:76$: 
^5$: 



;;78$: 
»%: 

LOOP: 



BR 

MOV 

RTI 

MOV 

MOV 

nov 

CLR 
BITS 
6EQ 
MOV 



:;AND THE HARDWARE SWR IS NOT = -1 
68$ ;;8RANCH IF NO TIMEOUT 

#68$, (SP) :;SET UP FOR I RAP RETURN 



#SUREG,SWR : .-POINT TO SOFTWARE SUR 

#DISPnEG,DISPLAY 

(SP)-^,a#ERRVEC : .-RESTORE ERROR VECTOR 
.-.CLEAR PASS COUNT 
.-.-TEST USER SIZE UNDER APT 
;; YES. USE NON-APT SWITCH 
.-.-NO.USE APT SWITCH REGISTER 



$PASS 
#APTSIZE.$ENVM 
70$ 

mWREG.SWR 



"^yPE PROGRAM NAME 
Tnc NAME OF THE PROGRAM 
INC #-1 
BNE 71$ 
CMP #$ENDAD.a#42 
BEQ 71$ 
TYPE .72$ 
.S8TTL GET VALUE FOR SOFTWARE 



TST 
BNE 
CMP8 
BEQ 
CMP 
BNE 
6TSWR 
BR 
MOVB 



»r42 
73$ 
$ENV.#1 
73$ 

SWR.#SUREG 
74$ 

74$ 

#1 .$AUT06 



IF FIRST PASS 

.-.-FIRST TIME? 

.-.-BRANCH IF NO 

;;ACT-11? 

; .-BRANCH IF YES 

.-.-TYPE ASCIZ STRING 
SWITCH REGISTER 

.-.-ARE WE RUNNING UNDER XXDP/ACT? 

;. -BRANCH IF YES 

.-.-ARE WE RUNNING UNDER APT? 

- -BRANCH IF YES 

;: SOFTWARE SWITCH REG SELECTED? 

: .-BRANCH IF NO 

.-.-GET SOFT-SWR SETTINGS 

.-.SET AUTO-MODE INDICATOR 



BR 71$ ;:GET OVER THE ASCIZ 

.ASCIZ <CRLF>*CICFPBCO FP11F FLTG PNT PRT B«<CRLF> 



TYPE 
BR 

.ASCIZ 

TYPE 
BR 

CLR 



,76$ .-.-TYPE ASCIZ STRING 

75$ ;;GET OVER THE ASCIZ 

.'EOP MESSAGES WILL PRINT EVERY 2000 PASSES (15 SECONDS) !<CRLF> 



.78$ ;;TYPE ASCIZ STRING 

77$ .-.-GET OVER THE ASCIZ 

:HIT ANY KEY TO DISABLE/ENABLE EOP MESSAGES !<CRLF> 



EPENDS 



;CLR EOP ENABLE/DISABLE FLAG 



.-DPM002 



CKFF»BCO FP11F FLTG F>NT PRT B 
TEST « 1 - ROUM)\TRUNIC TEST 

1703 



C 3 



170A 
1705 
1706 
1707 

1708 
1709 
1710 
1711 
1712 
1713 
17K 
1715 

^n6 

1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 

1740 
1741 
1742 
1745 
1744 
1745 



005214 000004 



005216 
005216 
005220 
005224 
005226 
005234 
005240 
005242 
005246 
005250 
005252 
005256 
035260 
005264 
005270 
005272 
005274 
005300 
005304 
005310 
005312 
005314 
005320 
005322 
005326 
005330 
005332 
005334 



005340 
005340 
005342 

005346 
005350 
005356 
005364 



104413 
012704 

170104 
012737 
012737 
012700 
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S8TTL TEST » 1 - ROUND\TRUNK TEST 



SEQUENCE 28 



•TEST 1 ROUND\TRUNK TEST 

* THIS IS A TEST OF THE ROUND\TRUNK 

* FLOWS. IN PARTICULAR TWO THINGS ARE TESTED: 

* FIRST A CONDITION IN WHICH ROUNDING 

* RESULTS IN THE NEED FOR RENORMALIZATION, AND 

* SECOND THE PSW CONDITION CODES N AND 

* Z BIT COmBlNATIONS 
* 

* *************************************************************** 

tSTI; 



SCOPE 

.•ROUND AND NORMALIZE TEST 



HHl 



1 A/ / 1 T 






1 DCDD 

LrtHH 








nUv 
















MOV 


012700 


006776 




MOV 


172410 






LDD 


012700 


007006 




MOV 


172010 




HH2: 


ADDD 


170205 






STFPS 


012700 


006766 




MOV 


174010 






STD 


012701 


007016 




NOV 


012702 


000004 




MOV 


022021 




HH3: 


CMP 


001415 






BEO 


012700 


006766 




MOV 


012701 


007026 




MOV 


012702 


000004 




MOV 


022021 




HH4: 


CMP 


001402 






BEQ 


000137 


006006 




JMP 


077205 




HH5: 


SOB 


000137 


006054 




JMP 


077220 




HH6: 


SOB 


020405 






crip 


001402 






BEQ 


000137 


006122 




JMP 



f3200,R4 
R4 

#HH2-$THP2 

#HHPO,RO 

(RO),ACO 

#HHP1,R0 

<RO).ACO 

R5 

#HHDATO,RO 
ACO,(RO) 
#HHP2.R1 
#4.R2 

(R0)*,(R1)* 
HH6 

#HHDATO.RO 

#HHP3,R1 

#4,R2 

(R0)+.(R1)* 

HH5 

HHERO 

R2,HH4 

HHER1 

R2,HH3 

R4,R5 

HH7 

HHEROO 



;SET UP THE LOOP ON ERROR ADDRESS. 
;SET FiU. FIV, AND FD 



:SET ACO OPERAND 
;FSPC 

.-TEST INSTRUCTION 

;6ET FPS 

;GET THE RESULT 

;IS IT CORRECT 



:DID FLOU GO 
.-FROM STATE 663 
;T0 313 INSTEAD 
;0F TO 353 



;FPS CORRECT? 



;TH1S IS A TEST OF THE ABILITY 

;0F NORMALIZE TO PRODUCE A ZERO EXP. AND 

;0F THE R\T ALGORITHM TO PORPERLY SET THE FPS 



HH7: 



043200 



005376 
006716 
007046 



001236 
000244 



LPERR 
MOV 



MOV 
MOV 
MOV 



#043200, R4 

LDFPS R4 
#HH8,$TMP2 
#HHTRAP.FPVECT 
#HHP5,R0 



:SET UP THE LOOP ON ERROR ADDRESS. 
;SET FIU,FIV.AND FD 
;FID 

;IN CASE UNDERFLOW 
.•TRAP OCCURS 

.-SET ACO OPERAND 



CKFPBCO fPllF FLT6 PNT PRT B 
TEST f 1 - ROUNONTRUNK TEST 
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1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 

1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 

1795 
1796 
1797 
1798 
1799 
1800 



005370 
005372 
005376 
005400 
005402 
005406 
005410 
005414 
005420 
005422 
005424 
005430 
005432 
005436 
005440 
005442 



005446 
005446 

005450 
005454 
005456 
005464 
005470 
005472 
005476 
005500 
005502 
005506 
005510 
005514 
00SS20 
005522 
005524 
005530 
005534 
005540 
005542 
005544 
005550 
005552 
005556 
005560 
005564 
005566 
005570 

005574 
005574 
005576 
005602 
005604 
005612 
005620 
005624 



172410 
012700 
172010 
170205 
012700 
174010 
012701 
012702 
022021 
001402 
000137 
077205 
052704 
020405 
001402 
000137 



104413 
012704 
170104 
012737 
012737 
012700 
172410 



007056 



006766 

007036 
000004 



006170 
100004 

006236 



104413 




012704 


043200 


170104 




012737 


005476 


012700 


007076 


172410 




012700 


007106 


172010 




170205 




012700 


006766 


174010 




012701 


007066 


012702 


000004 


022021 




001415 




012700 


006766 


012701 


007036 


012702 


000004 


022021 




001402 




000137 


006304 


077205 




000137 


006352 


077220 




052704 


100014 


020405 




001402 




000137 


006420 



000200 

005632 
037450 
007076 



LDD 
NOV 

HH8: ADDD 
STFPS 
NOV 
STD 
NOV 
NOV 

HH9: CNP 
BEQ 
JNP 

HH10: SOB 
BIS 
CNP 
BEQ 
JNP 

.-THIS IS A TEST 
.•ABILITY TO SET 
HH11: 

LPERR 

NOV 
LDFPS 
001236 NOV 
NOV 
LDD 
NOV 
ADDD 
STFPS 
NOV 
STD 
NOV 
NOV 
CNP 
BEQ 
NOV 
NOV 
NOV 
CMP 
BEQ 
JNP 
SOB 
JNP 
SOB 
BIS 
CNP 
BEQ 
JNP 
THAT CC 

LPERR 
NOV 
LDFPS 
001236 NOV 
000244 NOV 
NOV 
LDD 



(fiO).ACO 
#HHP6,R0 
(RO) ,AC0 
R5 

#HHDATO,R0 

ACO.(RO> 

#HHP4,R1 

(R0;+,(R1)+ 
HH10 
HHER2 
R2.HH9 
#1 00004, R4 
R4.R5 
HH11 
HHEfi3 
OF THE 
BOTH N 



HH12: 



HH13; 



HH14: 



HH15: 
HH16: 



.•TEST 
HH17: 



;FSPC 

.TEST INSTRUCTION 

;6ET FPS 

;6ET THE RESULT 

;IS IT CORRECT 



;FPS CORRECT? 



R\T 
AND 



ALGORITHN'S 

Z ON A - 0 RESULT. 



#043200. R4 
R4 

fHHl2,$TNP2 
#HHP8.R0 
(RO).ACO 
/THHPO.RO 
(RO).ACO 
R5 

fHHDATO.RO 
ACO.(RO) 
#HHP7.R1 
#4-R2 

(r6)+.(R1)* 
HH16 

#HHDAT0,R0 
fHHP4,R1 
#4-R2 

(R0)+.(R1)* 
HH15 
HHER4 
R2,HH14 
HHER5 
R2.HH13 
/ri00014.R4 
R4,R5 
Hh17 
HHER6 
ARE CLEARED BY 



:SET UP THE LOOP ON ERROR ADDRESS 
;SET FIV. FIV. AND FD 



:SET ACO OPERAND 
;FSPC 

.-TEST INSTRUCTION 

.-GET FPS 

;GET ThE RESULT 

;IS IT CORRECT 



;FPS CORRECT? 



R\T 



#00200. R4 
R4 

/rHHl8.$TNP2 
fFPSPUR.FPVECT 
#HHP8.R0 
(RO) ,ACO 



;SET UP THE LOOP ON ERROR ADDRESS 
;SET FIV. FIV. AND FD 



:SET ACO OPERAND 



CKFPBCO FP11F FLTG PNT PRT B 
TEST # 1 - ROUNDXTRUNK TEST 



1801 00t>626 


012700 


007076 




1802 005632 


172010 






1803 00563A 


170205 


006766 




1604 005636 


012700 




1805 005642 


174010 






1806 005644 


012701 


007116 




1807 005650 


012702 


000004 




1808 005654 


022021 
001402 
000137 






1809 005656 






1810 005660 


006466 




1811 005664 


077205 






1812 005666 


052704 


000000 




1813 005672 


020405 






1814 005674 


001402 






1815 005676 


000137 


006534 




1816 








1817 005702 








005702 


104413 


003200 




1818 005704 


012704 




1819 005710 


170104 




001236 


1820 005712 


012737 


005732 


1821 005720 


012700 


007046 




1822 005724 


172410 






1823 005726 


012700 


007046 




1824 005732 


172010 






1825 005734 


170205 






1826 005736 


012700 


006766 




1827 005742 


174010 






1828 005744 


012701 


007126 




1829 005750 


012702 


000004 




1830 005754 


022021 






1831 005756 


001402 






1832 005760 


0001 37 


006602 




1833 005764 


077205 






1834 005766 


052704 


000010 




1835 005772 


020405 






1836 005774 


001402 


006650 




1837 005776 


000137 




1838 006002 


000137 


007136 




1839 006006 




001252 




006006 


010537 




006012 


010437 


001254 




006016 


012737 


007006 


001240 


006024 


012737 


006776 


001242 


006032 


012737 


006766 


001244 


006040 


012737 


007016 


001246 


006046 


104207 






006050 


000137 


007136 




1840 006054 








006054 


010537 


001252 




006060 


010437 


001254 




006064 


0;2737 


007006 


001240 


006072 


012737 


006776 


001242 


006100 


012737 


006766 


001244 


006106 


012737 


007016 


001246 


006114 


104211 






006116 


000137 


007136 
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HH18: 



HH19: 
HH20: 



.•TEST Tl 
HH21 : 



HH22: 

HH23: 
HH24: 



HH25: 
HHERO: 



IS: 

HHER1 : 



IS: 



;FSPC 

;TEST INSTRUCTION 

;6ET FPS 

;6ET THE RESULT 

;IS IT CORRECT 



;FPS CORRECT? 



:SET L? THE LOOP ON ERROR ADDRESS. 
;SET FIV, FIV, AND FD 



;SET ACO OPERAND 
;FSPC 

.-TEST INSTRUCTION 

;6ET FPS 

;6ET THE RESULT 



;IS IT CORRECT 



;FPS CORRECT? 



CKFPBCO FP11F FLTG PNT PRT B 
TEST # 1 - ROUNDXTRUNK TEST 
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F 3 
9-3 



1841 


006122 




001252 






006122 


010537 






0061 26 


010437 


001254 


001240 




006132 


012737 


007006 




006140 


012737 


006776 


001242 




006146 


012737 


006766 


001 244 




006154 


012737 


007016 


001 246 




006162 

WW > Wk 


104210 








006164 


0001 37 


007136 




1842 


0061 70 










006170 


010537 


001252 






0061 74 


010437 


001254 






006200 


012737 


007056 


001240 




006206 


012737 


007046 


001242 




006214 


012737 


006766 


001244 




006222 


012737 


007036 


001246 




006230 


104207 








006232 


000137 


007136 




1843 006236 




001252 






006236 


010537 






006242 


010437 


001254 






006246 


012737 


007056 


C01240 




006254 


012737 


007046 


001242 




006262 


012737 


006766 


001244 




006270 


012737 


007036 


001246 




006276 


104214 








006300 


000137 


007136 




1844 


006304 










006304 


010537 


001252 






006310 


010437 


001254 






006314 


012737 


007106 


001240 




006322 


012737 


007076 


001242 




006330 


012737 


006766 


001244 




006336 


012737 


007066 


001246 




006344 


104207 








006346 


000137 


007136 




1845 


006352 




001252 






006352 


010537 






006356 


010437 


001254 






006362 


012737 


007106 


001240 




006370 


012737 


007076 


001242 




006376 


012737 


006766 


001244 




006404 


012737 


007066 


001246 




006412 


104216 








006414 


000137 


007136 




1846 006420 










006420 


010537 


001252 






006424 


010437 


001254 






006430 


012737 


007106 


001240 




006436 


012737 


007076 


001242 




006444 


012737 


006766 


001244 




006452 


012737 


007066 


001246 




006460 


104215 








006462 


000137 


007136 




1847 006466 










006466 


010537 


001252 






006472 


010437 


001254 





HHEROO: 



IS: 

HHER2: 



IS: 

HHER3: 



IS: 

HHER4: 



1S: 

HHER5: 



1$: 

HHER6: 



IS: 

HHER7; 



«0V R5.STHP10 

«0V R4,STHP11 

NOV #HHP1.$THP3 

nOV #HHP0.STnP4 

nOV «HHDAT0,STMPS 

mv fHHP2«STNP6 

ERROR ♦ZIO 

jnp HHDONE 

MOV R5,ST«P10 

NOV R4,STnP11 

MOV #HHP6,STHP3 

nOV #HHP5.STnP4 

NOV #HHDATO,STNPS 

NOV #HHP4,STNP6 

ERROR +207 

JNP HHDONE 

NOV RS.STNP10 

NOV R4,STNP11 

NOV #HHP6,STNP3 

NOV »HHP5,STNP4 

NOV fHHDATO.STNPS 

NOV fHHPA,STNP6 

ERROR *2U 

JNP HHDONE 

NOV R5.STNP10 

NOV R4.STNP11 

NOV fNHP9.STNP3 

NOV fHHP8,STNP4 

NOV «HHDAT0«STNP5 

NOV fHHP7,STNP6 

ERROR ^207 

JNP HHDONE 

NOV R5,STNP10 

NOV R4,STNP11 

NOV #HHP9,STNP3 

NOV #HHP8,STNP4 

NOV «HHDATO,STNPS 

NOV fHHP7«STNP6 

ERROR ^21 6 

JNP HHDONE 

NOV R5,STNP10 

NOV RA.STNPn 

NOV fHHP9.STNP3 

NOV fHHP8,STNP4 ^ 

NOV #HHDATO,STNPS 

NOV fHHP7.STNP6 

ERROR *2^5 

JNP HHDONE 

NOV R5,STNP10 

NOV R4,STNP11 



1848 



1849 



CKFPBCO FP11F FLTG PNT PRT B 
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006476 
006504 
006512 
006520 
006526 
006530 
006534 
006534 
006540 
006544 
006552 
006560 
006566 
006574 
006576 
006602 
006602 
006606 
006612 
006620 
006626 
006634 
006642 
006644 
006650 
006650 
006654 
006660 
006666 
006674 
006702 
006710 
006712 
006716 
006722 
006726 
006730 
006732 
006736 
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1850 



1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 



006742 
006744 
006746 
006752 
006754 
006760 
006762 
006766 
006770 
006772 
006774 
006776 
007000 
007002 
007004 
007006 
007010 



012737 


007076 


001240 


012737 


007076 


001242 


012737 


006766 


001244 


012737 


007116 


001246 


104207 






000137 


007136 




010537 


001252 




010437 


001254 




012737 


007076 


001240 


012737 


007076 


001242 


012737 


006766 


001244 


012737 


007116 


001246 


104212 






000137 


007136 




010537 


001252 




010437 


001254 






007046 


001240 


012737 


007046 


001242 


012737 


006766 


001244 


012737 


007126 


001246 


104207 






000137 


007136 




010537 


001252 




010437 


001254 




012737 


007046 


001240 


012737 


007046 


001242 


012737 


006766 


001244 


012737 


007126 


001246 


104213 






0001 37 


007136 




013703 


C01236 




062703 


000002 




020316 






001402 






000137 


037450 




011637 


001236 




022626 






1 70201 






010137 


001240 




1 70301 






010137 


001242 




104217 






000137 


007136 




000000 






000000 






000000 






000000 






000452 






125252 






125252 






125253 






000252 






125252 







1$: 

HHER8: 



IS: 

HHER9: 



1$: 

HHER10: 



1$: 

HHTRAP: 
1$: 



2$: 

HHDATO: 
HHPO: 
HHP1 : 



MOV 

nov 
nov 
nov 

ERROR 
JMP 

nov 
nov 
nov 
nov 
nov 
nov 

ERROR 
JMP 

nov 
nov 
nov 
nov 
nov 
nov 

ERROR 

jnp 

nov 
nov 
nov 
nov 
nov 
nov 

ERROR 
JMP 

nov 

ADD 
CMP 
BEQ 
JMP 
MOV 

CMP 

STFPS 

MOV 

STST 

MOV 

ERROR 

JMP 

0 

0 

0 

0 

452 

125252 

125252 

125253 

252 

125252 



#MHP8,$TnP3 
#HHP8,$TnP4 
#HHDAT0.STnP5 
#HHP10.iTMP6 

♦207 
HHDONE 

R5,$TMP10 

R4.$TMP11 

«HHP8,STnP3 

«HHP8,$TnP4 

«HHDAT0.$TMP5 

«HHP10,iTMP6 

♦212 

HHDONE 

R5.$TMP10 

R4,$TMP11 

#HHP5.$TMP3 

#HHP5,$TMP4 

#HHDAT0.$TMP5 

#HHP11,iTMP6 

♦207 

HHDONE 

R5,$TMP10 

R4.$TMP11 

#HHP5,$TMP3 

#HHP5.$TMP4 

#HHDAT0-$TMP5 

#HHP11.iTMP6 

♦213 

HHDONE 

$TMP2.R3 

#2.R3 

R3.(SP) 

1$ 

FPSPUR 
(SP).$TMP2 

(SP)^,(SP)^ 
R1 

R1 ,$TMP3 

R1 

R1-$TMP4 

♦2l7 

HHDONE 



SEQUENCE 12 



;WAS THE TRAP TO 264 
;0N THE INSTRUCTION 
.•BEING TESTED? 



FAILURE OF FPS INTERRUPT 
DISABLE BIT (FID=1) 
TO INHIBIT TRAP. 



CKFP8C0 FP11F FLTG PNT PRT B 
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1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
188A 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 



007012 
007014 
007016 
007020 
007022 
007024 
007026 
007030 
007032 
007034 
007036 
007040 
007042 
007044 
007046 
007050 
007052 
007054 
007056 
007060 
007062 
007064 
007066 
007070 
007072 
007074 
007076 
007100 
007102 
007104 
007106 
007110 
007112 
007114 
007116 
007120 
007122 
007124 
007126 
007130 
007132 
007134 
007136 
007136 



125252 
125252 
000600 
000000 
000000 
000000 
000400 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
100200 
000000 
000000 
000000 
000300 
000000 
000000 
000000 
100000 
000000 
000000 
000000 
000200 
000000 
000000 
000000 
100300 
000000 
000000 
000000 
000400 
000000 
000000 
000000 
100400 
000000 
000000 
000000 

104412 



HHP2: 
HHP3: 
HHP4: 
HHP5 : 
HHP6: 
HHP7: 
HHPS: 
HHP9: 
HHP10; 
HHP1 1 : 
HHDONE: 



125252 

125252 

600 

0 

0 

0 

400 

0 

0 

0 

0 

0 

0 

0 

100200 
0 
0 
0 

300 
0 
0 
0 

100000 
0 
0 
0 

200 
0 
0 
0 

100300 
0 
0 
0 

400 
0 
0 
0 

100400 
0 
0 
0 

RSETUP 



1918 
1932 



H 3 

PAGE 9-5 SEQUENCE 33 



;HHPO ♦ HHP1 WITH 
.PROPER NORMALIZATION 



;HHPO ♦ HHP1 WITH 
.BAD NORMALIZATION 



;HHP7 = HHPS ♦ HHP9 
= HHPS ♦ HHP6 



;HHP10 = HHPS ♦ HHPS 



;HHP11 = HHP5 ♦ HHP5 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



CKFPBCO FPIIf FLTG PNT PRT B 
TEST # i - OVER\UNDER TEST 

1933 
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I 

10 



007UO 

1934 
1935 

1936 007K2 
007U2 

1937 007H4 

1938 007150 

1939 007152 

1940 007160 

1941 007166 

1942 007172 

1943 007174 

1944 007200 

1945 007202 

1946 007204 

1947 007210 

1948 007212 

1949 007216 

1950 007222 

1951 007224 

1952 007226 

1953 007232 

1954 007234 

1955 007240 

1956 007242 

1957 007244 
1958 

1959 

1960 007250 
007250 

1961 007252 

1962 007256 

1963 007260 

1964 007266 

1965 007274 

1966 007300 

1967 007302 

1968 007306 

1969 007310 

1970 007312 

1971 007316 

1972 007320 



000004 



104413 
012704 
170104 
012737 
012737 
012700 
172410 
012700 
172010 
170205 
012700 
174010 
012701 
012702 
022021 
001402 
000137 
077205 
052704 
020405 
001402 
000137 



104413 
012704 
170104 
012737 
012737 
012700 
172410 
012700 
172010 
170000 
012700 
174010 
000137 



000200 

007200 
01C232 
012004 

012004 



011734 

012014 
000004 



010330 
000006 

010376 



001200 

007306 
007324 
012004 

012004 



011734 
010444 



001236 
000244 



SBTTL TEST M 2 - OVERXUNDER TEST 



•TEST 2 



OVERVUNDER TEST 



•THIS IS A PARTIAL TEST OF THE OVERVUNDER 
•FLOWS. ONE OVERFLOW AND TWO UNDERFLOW 
•CONDITIONS ARE CHECKED. THE REMAINING 
•UNDERFLOW COND. AND THE REMAINING OVERFLOW 
•COND. WILL BE CHECKED LATER USING THE 
•XXX INSTRUCTION. HERE EACH CONDITION TESTED 
•IS CHECKED BOTH WITH TRAPS ENABLED 
•(FIU=1 OR FIV=1) AND ALSO WITH TRAPS 
•DISABLED (FIU=0 OR FIV=0). 



TST2: SCOPE 



.•TEST 
GG1: 



OVERFLOW CONDITION WITH TRAP DISABLER FIV=0 



GG2: 



GG3: 



GG4: 



G65: 



001236 
000?44 



6G6: 



LPERR 
MOV 
LDFPS 
MOV 
MOV 
MOV 
LDD 
MOV 
ADDD 
STFPS 
MOV 
STD 
MOV 
MOV 
CMP 
BEO 
JMP 

soe 

BIS 
CMP 
BEQ 
JMP 



.-SET UP THE LOOP 
.CLEAR FIU. FIV. 



#200, R4 
R4 

#GG2.$TMP2 
*G6ER0.FPVECT 
4rGGP5,RO 
(R0> .ACO 
#6GP5.R0 
(RO).ACO 
R5 

«GGDATO,RO 
ACO.(RO) 
4rGGP6,R1 
#4-R2 

(R0)*.(R1)* 
GG4 
GGER1 
R2.6G3 
«6,R4 
R4.R5 
GG5 
GGER2 

.•TEST OVERFLOW WITH TRAPS ENABLED 

;FIV = 1 



ON ERROR ADDRESS 
AND SET FD 



:SET ACO OPERAND 
;FSRC 

.•TEST INSTRUCTION 
;GET FPS 
;GET THE RESULT 

;IS IT CORRECT 



;FPS CORRECT? 



LPERR 

MOV 

LDFPS 

MOV 

MOV 

MOV 

LDD 

MOV 

ADDD 

CFCC 

MOV 

STD 

JMP 



#1200,R4 
R4 

#666,$TMP2 

#667,FPVECT 

»6GP5,R0 

(RO).ACO 

#GGP$.RO 

(RO),ACO 

«GGDATO,R0 

ACO«(RO) 

GGER3 



;SET UP THE 
.•CLEAR FIU. 



LOOP ON ERROR ADDRESS 
SET FIV, AND FD 



:SET ACO OPERAND 
;FSPC 

;TEST INSTRUCTION 



CICFPBCO FP11F FLTG PNT PRT B 
TEST # 2 - OVER\UNDER TEST 



1973 00732A 

1974 007330 

1975 00733A 

1976 007336 

1977 007340 

1978 007344 

1979 007350 

1980 007352 

1981 007354 

1982 007360 

1983 007362 

1984 007366 

1985 007372 

1986 007374 

1987 007376 

1988 007402 

1989 007404 

1990 007410 

1991 007412 

1992 007414 

1993 007420 
1994 

1995 007424 

1996 007426 

1997 007430 

1998 007432 
1999 

2000 

2001 007436 
007436 

2002 007440 

2003 007444 

2004 007446 

2005 007454 

2006 007462 

2007 007466 

2008 007470 

2009 007474 

2010 007476 

2011 007500 

2012 007504 

2013 007506 

2014 007512 

2015 007516 

2016 007520 

2017 007522 

2018 007526 

2019 007530 

2020 007534 

2021 007536 

2022 007540 
2023 

2024 

2025 007544 
007544 

2026 007546 

2027 007552 



013703 
062703 
020316 
001402 
000137 
011637 
022626 
170205 
012700 
174010 
012701 
012702 
022021 
001402 
000137 
077205 
052704 
020405 
001402 
000137 
012704 

170305 
020405 
001402 
000137 



001236 
000002 



037450 
001236 



011734 

012014 
000004 



010512 
100006 



010562 
000010 



010514 
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G67: 



J 3 
PAGE 10-1 



1$: 



GG8: 
GG9: 



1$: 

.•CHECK 



.•CHECK 
.•TRAPS 

GG10: 



104413 






012704 


000200 




170104 






012737 


007474 


001236 


012737 


010630 


000244 


012700 


011754 




172410 






012700 


011764 




172010 






170205 






012700 


011734 




174010 






012701 


012014 




012702 


000004 




022021 






00U02 






000137 


010726 




077205 






052704 


000004 




020405 






001402 






000137 


010774 




104413 






012704 


002200 




170104 







GG1 1 : 

GG12: 
GG13: 



GG14: 



MOV 


JTMP2,R3 


ADD 


*2,R3 


^ AAA 

CMP 


R3, (SP; 


BEQ 


IS 


JMP 


rPSrUR 


MOV 


(SP; ,»TMP2 


CMP 


iSr) + , vSr ) ♦ 


STFPS 


DC 


MOV 


•GGDATO.RO 


STD 


* /■ A / n A \ 

ACO, (RO) 


MOV 


M^^R^ Dl 


MOV 


w't,Hc 


CMP 


/Dni A. /Dl \ A, 
\R\J} ▼ , (Rl ^ ♦ 


BEQ 


rro 






506 


R2.GG8 


Bi5 


wiUUUUo.Rh 


CWr 


D/ DC 


OCA 

BEQ 


1 c 


IMP 


uucno 


MOV 


#10. R4 


FEC 


RS 


STST 


CMP 


R4.R5 


BEQ 


GG10 


JMP 


GGERS 



.-GET THE RESULT 
;IS IT CORRECT 



;FPS CORRECT? 



UNDER FLOW CONDITION UITH 
DISABLED (FJU = 0) 



LPERR 

MOV #0200, R4 

LDFPS R4 

MOV »GG11.STMP2 

MOV #66ER7.FPVECT 

MOV #66P2,R0 

LDD (RO).ACO 

MOV »GGP3,R0 

ADDD (RO),ACO 

STFPS R5 

MOV fCGDATO.RO 

STD ACO,(RO) 

MOV »G6P6,R1 

MOV #4.R2 

CMP (R0)*.(R1)* 

BEQ GG13 

JMP GGER8 

SOB R2.GG12 

BIS »4.R4 

CMP R4-R5 

BEQ GGU 

JMP 6GER9 

.-CHECK UNDERFLOW CONDITION UITH 

;TRAP ENABLED (FIU = 1) 



.-SET UP THE LOOP ON ERROR ADDRESS 
;SET FIU. FIV. AND FD 



:SET ACO OPERAND 
;FSRC 

TEST INSTRUCTION 
GET FPS 

GET THE RESULT 
;IS IT CORRECT 



FPS CORRECT? 



LPERR 

MOV #2200, R4 
LDFPS R4 



;SET UP THE LOOP ON ERROR ADDRESS 
.-SET FIU. FIV. AND FD 



CICFPBCO FPIIF FLTG PNT PRT B 
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SEQUENCE 36 



2028 007554 

2029 007562 

2030 007570 

2031 007574 

2032 007576 

2033 007602 

2034 007604 

2035 007606 

2036 007612 

2037 007614 

2038 007620 

2039 007624 

2040 007630 

2041 007632 

2042 007634 

2043 007640 

2044 007644 

2045 007646 

2046 007650 

2047 007654 

2048 007656 

2049 007662 

2050 007666 

2051 007670 

2052 007672 

2053 007676 

2054 007700 

2055 007704 

2056 007706 

2057 007710 

2058 007714 

2059 007714 
2060 

2061 007720 

2062 007722 

2063 007724 

2064 007726 
2065 

2066 

2067 007732 
007732 

2068 007734 

2069 007740 

2070 007742 

2071 007750 

2072 007756 

2073 007762 

2074 007764 

2075 007770 

2076 007772 

2077 007774 

2078 010000 

2079 010002 

2080 010006 

2081 010012 

2082 010014 

2083 010016 



012737 
012737 
012700 
172410 
012700 
172010 
170000 
012700 
174010 
000137 
013703 
062703 
021603 
001402 
000137 
011637 
022626 
1 70205 
012700 
174010 
012701 
012702 
022021 
001402 
000137 
077205 
052704 
020405 
001402 
000137 

012704 

170305 
020405 
001402 
000177 



007602 
007620 
011754 

01 1 764 



011734 

011042 
001236 
000002 



037450 
001236 



011734 

012024 
000004 



011110 
100000 

011156 
000012 

001272 



001236 
000244 



MOV 

nov 
nov 

LDD 
KOV 

6C1S: ADDD 
CFCC 

nov 

STD 
JMP 

GG16: nov 
ADD 
CMP 
BEO 
JMP 

IS: MOV 
CMP 
STFPS 
MOV 
STD 
MOV 
MOV 

G617: CMP 
BEQ 
JMP 

6G18: SOB 
BIS 
CMP 
BEQ 
JMP 

2$: 

1$: MOV 
.'CHECK FEC 

STST 
CMP 
BEQ 
JMP 



#GG15,$TnP2 

#GG16,FPVECT 

#GGP2,R0 

(RO).ACO 

#GGP3.R0 

(RO) ,ACO 

#GGDATO,RO 

ACO.(RO) 

GGER10 

$TMP2.R3 

#2.R3 

(SP).R3 

IS 

FPSPUR 
(SP), STMP2 

R5 

#GGDATO,RO 
ACO.(RO) 
#GGP7,R1 
#4.R2 

(R0)*,(R1)+ 

GG18 

GGER11 

R2.6G17 

#1 60000, R4 

R4,R5 

2S 

66ER12 
#12,R4 

R5 

R4,R5 
a6GER13 



:SET ACO OPERAND 
;FSPC 

;TEST INSTRUCTION 



.GET FPS 

:GET THE RESULT 

;JS IT CORRECT 



;FPS CORRECT? 



.CHECK UNDERFLOW CONDITION WITH TRAPS 



.-DISABLED 
GG19: 



(FIU = 0) 



104413 








LPERR 


012704 


000200 






NOV 


170104 








LDFPS 


012737 


007770 


001236 




NOV 


012737 


011272 


000244 




MOV 


012700 


011754 






MOV 


172410 








LDD 


012700 


012034 






NOV 


172010 






GG20: 


ADDD 


170205 








STFPS 


012700 


011734 






MOV 


174010 








STD 


012701 


012014 






MOV 


012702 


000004 






MOV 


022021 






6G21 : 


CMP 


001402 








DEQ 


000137 


011370 






JMP 



4r0200.R4 
R4 

#G620.STNP2 

#6GER14.FPVECT 

f66P2.R6 

(RO)-ACO 

#GGP8.R0 

(RO) ,ACO 

R5 

#GGDATO,R0 
ACO.(RO) 
«GGP6.R1 
#4.R2 

(R0)*,(R1)* 

GG22 

GGER15 



;SET UP THE LOOP ON ERROR ADDRESS. 
:SET FIU. FIV. AND FD 



.SET ACO OPERAND 
;FSPC 

.-TEST INSTRUCTION 

;6ET FPS 

.GET THE RESUIT 

:IS IT CORRECT 



^KFPSCO FPIIr FLTG PNT PRT B HACRO H1 113 20-0CT-81 08:27 PAGE 10- 
TEST # 2 - OVERNUNOER TEST 

208A 010022 077205 GG22: S08 R2.6G21 

2085 01002A 05270A 000004 BIS #A.R4 

2086 010030 020A05 C«P RA.R5 

2087 010032 001402 BEG G623 

2088 01 0034 000137 011436 JW> 66ER16 



SEQUENCE 37 



;FPS CORRECT? 



H 3 

CKfPBCO fPlIF FLTG PNT PRT B HACRO Hi 113 20-OCT-81 08:27 PAGE 11 SE0U6MCE 
TEST f 2 - OVER\UNDER TEST 

2090 ;CHECK UNDERFLOW CONDITION WJTH TRAP 



CKFPBCO FPIIF FLTG PNT PRT 
TEST # 2 - OVERVUNDER TEST 



B «ACRO Ml 113 20-OCT-81 08:27 PAGE 



N 

12 



SEOUEMCE 39 



2092 
2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2118 

2119 

2120 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 



010040 
010040 
010042 
010046 
010050 
010056 
010064 
010070 
010072 
010076 
010100 
010102 
010106 
010110 
010114 
010120 
010124 
010126 
010130 
010134 
010V0 
010142 
010144 
010150 
010152 
010^56 
010162 
010164 
010166 
010172 
010174 
010200 
010202 
010204 
010210 

010214 
010216 
010220 
010222 



010232 
010236 
010242 
010244 
010246 
010252 
010252 
010254 
010260 
010262 
010264 
010270 
010272 



104413 
012704 
170104 
012737 
012737 
012700 
172410 
012700 
172010 
1 70000 
012700 
174010 
000137 
013700 
062^00 
020016 
001402 
000137 
011637 
022626 
170205 
012700 
174010 
012701 
012702 
022021 
001402 
000137 
077205 
052704 
020405 
001402 
000137 
012704 

170305 
020405 
001402 
000137 



010226 000137 



013701 
062701 
020116 
001402 
000137 

170301 
020127 
001372 
022626 
012700 
174010 
012737 



GG23: 



.•ENABLED (FIU = 1) 



002200 

010076 001236 
010114 000244 
011754 

012034 



011734 

011504 
001236 
000002 



037450 
001236 



011734 

012044 
000004 



011552 
100004 



011666 
000012 



011620 

012054 

001236 
000002 

037450 

000010 

011734 

012004 001240 



GG24: 



GG25 : 



IS: 



G626: 
6627: 

IS: 



6G28: 
GGERO: 



5S: 
10$: 



LPERR 
MOV 
LDFPS 
MOV 

nov 

MOV 

LOD 

MOV 

ADDD 

CFCC 

MOV 

STD 

JMP 

MOV 

ADD 

CMP 

BEO 

JMP 

MOV 

CMP 

STFPS 

MOV 

STD 

MOV 

MOV 

CMP 

BEO 

JMP 

SOB 

BIS 

CMP 

BEQ 

JMP 

MOV 

.•CHECK 

STST 

CMP 

BEQ 

JMP 

JMP 

MOV 
ADD 
CMP 
BEQ 
JMP 

STST 

CMP 

BNE 

CMP 

MOV 

STD 

MOV 



#2200. R4 
R4 

#6G24.$TMP2 

#G625.FPVECT 

4r66P2.R0 

(RO).ACO 

#66P8,R0 

(R0),AC0 

#66DATO,R0 

AC0,(R0) 

G6ER17 

$TMP2.R0 

#2.R0 

RO.(SP) 

IS 

FPSPUR 
(SP).$THP2 
(SP)*.(SP)+ 
R5 

#G6DATO.R0 
ACO.CRO) 
#G6P9,R1 
#4.R2 

(r6)+,(R1)* 

GG27 

GGER18 

R2.GG26 

#1 00004, R4 

R4.R5 

1$ 

GGER20 
#12,RA 

FEC 
R5 

R4-R5 

G628 

66ER19 

66D0NE 

$TMP2,R1 
#2.R1 
RI.(SP) 
lOi 

FPSPUR 
R1 

Rl./»10 
5S 

(SP)*.(SP)* 
#66DATO,R0 
ACO,(RO) 
#66PS.STNP3 



.SET UP THE LOOP ON ERROR ADDRESS. 
.-SET FIU, FIV. AND FD 



;SET ACO OPERAND 



;FSRC 

.TEST INSTRUCTION 



;6ET FPS 

;6ET THE RESULT 

;IS IT CORRECT 



;FPS CORRECT? 



L 



CKFPeCO FPnF FLTG PNT PRT B 
TEST # 2 - OVER\UNOER TES^ 



HACRO H1 113 20-0CT-81 08:27 



B A 
PAGE 12-1 



SEQUENCE 40 





010300 


012737 


012004 


i lAi oy o 
'J01242 




010506 


012737 


A 4 4 7T / 

01 1 734 


AAi oy y 
001 24h 




010314 


012737 


A4 'lAi y 

012014 


AAi oy ▲ 
001246 




010322 


104220 








010324 


A AA4 T ^ 

000137 


A4 T AC / 

012054 




2148 










2149 


010330 




AAi OCO 

001252 




01 0330 


A4 AC TT 

01053^^ 






A1 ATT i 

010334 


AI Ay TT 

01043a 


AAI OC/ 
001 CJ** 






A1 AT/ A 


Ai 17T7 


Ai 'if\(\i 

01 cOUh 


AA1 0/ A 

UUl chU 




A1 AT/ Z 

010346 


AI 17T7 

01273/^ 


Ai OAAy 

01<:004 


ftA1 0/0 




A4 ATC / 

0103S4 


AI 1TT7 

012737 


Ai i 77y 

01 1 734 


AA1 0/ / 

00 1 c4h 




010362 


A4 '^TTT 

012737 


Ai OAi y 

012014 


AAi oy ^ 
001246 




A4 AT7A 

010370 


4 Ay '^AT 

104207 








A4 ATT*^ 

010372 


AAA4 TT 

000137 


Ai OACy 

012054 




2150 










2151 


A4 ATTZ 

010376 










A4 AT^Z 

010376 


Ai ACT7 

010537 


AAi OCO 

001252 






A1 Ay AO 


Ai Ay 

01043/^ 


AAI OC/ 

001 £5h 






A1 A/ AZ. 


Ai 0777 


AI OAA/ 

OIcOUh 


AA1 OAA 




A4 Ay 1 y 


Ai 0777 
012737 


012004 


AA1 OAO 
001 




A4 Ay 1*5 

010422 


Ai 07T7 

012737 


Ai i 77y 

01 1 734 


AAi 0/ A 

OUT 




A4 A/ TA 

010430 


Ai 0777 

012737 


Ai 0A1 / 

01 c014 


AAI OAiL 
001 CHO 




A4 Ay TZ 

010436 


i Ay OTO 

104232 








A4 Ay y A 


AAAi T7 
000137 


Ai one/ 
01205H 




2152 










2153 


Ai Ay y y 




AAi OCO 
001 CJC 






A4 Ay y y 
0 iOhhh 


Ai ACT7 

010537 






A1 Ay C A 


AI Ay 77 

010437 


AAi OCA 

00l£5*» 






AI Ay cy 
010454 


Ai 0777 

01c737 


Ul £UU*» 


AAI OAA 
UU 1 chU 




A1 Ay 
01U4o^ 


m 0777 
01^737 


Ai onnA 


AA1 OAO 
UU 1 CMC 




A1 A/ 

0104rU 


Ai 0777 

01c737 


A1 1 77Z. 


AA1 OAA 
UU 1 C**** 




A1 Ay TZ. 
0104 


Ai 0777 

01^737 


Ai 0A1 L 

Ol£01*» 


AA1 OAA 
UUlCHO 




010504 


i Ay ooi 
104221 








010506 


AAAi 77 

000137 


AI OACZ 

01cU5«» 




2154 










2155 


A1 AC 1 ^ 

010512 


AAA7A^ 

000706 






2156 










215r 


Ai AC1 / 

01Uj14 








AI ACi y 

010514 


Ai AC77 

010537 


AAi OCO 

001 £5£ 






010520 


Ai A/ 77 

01U437 


AAI OCA 






AI ACO/ 

010>c4 


ni 0777 

01c737 


Ai OArtA 


AAI OAA 
UU 1 C*»U 




AI AC70 


AI 0777 

01c737 


AI OAA/ 

01c004 


AAI OA 0 
001 CHC 




AI AC/ A 

010540 


Ai 0777 

012737 


All 77/ 

01 1 73h 


AAI OAA 
00 1 C*»H 




AI AC/ L. 

010546 


AI 0777 


AI oni A 
01c01*» 


AAI OAA 




A1 ACCy 

010554 


1 Ay oox 
104226 








Ai ACCX 

010556 


AAAI 77 
000137 


AI OAC/ 

01c054 




'li CO 

2158 












AI AC/.0 

010562 








AI ACXO 

010562 


Ai At;77 
010537 


AA 1 0 C 0 
001 ^5£ 








U 1 vH J f 


vv 1 C J*» 






010572 


012737 


012004 


001240 




010600 


012737 


012004 


001242 




010606 


012737 


011734 


001244 




010614 


012737 


012014 


001246 




010622 


104227 








010624 


000137 


012054 





1$: 



G6ER1 



1$; 



G6ER2: 



1$: 



G6ER3: 



1$: 

GGER4: 
GGER5: 



1$: 



GGER6: 



1$: 



HOV #GGP5.$TnP4 

nCV «6GDAT0,$TnP5 

MOV #66F'6.$TnP6 

ERROR ^220 

jnP 6GD0NE 



MOV RS.ITMPIO 

MOV R4,$TMP11 

MOV «66P5,STMP3 

MOV #66P5,STMP4 

MOV *66DAT0,$THP5 

MOV «66P6,STMP6 

ERROR +207 

JMP GGDONE 



MOV R5,$TMP10 

MOV R4,$TMP11 

MOV #66P5.$TMP3 

MOV #66P5,$THP4 

MOV #66DAT0.$TMP5 

MOV #66P6,$TMP6 

ERROR +232 

JMP GGDONE 



MOV RS.STMPIO 

MOV R4,$TMP11 

MOV /rG6P5,$TMP3 

MOV #GGP5.$TMP4 

HOV #GGDAT0.$TMP5 

MOV #G6P6,$TMP6 

ERROR +221 

JMP GGDONE 

BR GGERl 



MOV RS.STMPIO 

HOV R4.$THP11 

HOV #GGP5,$THP3 

HOV «G6P5,$THP4 

HOV «6GDATO.$THP5 

HCV «GGP6.$THP6 

ERROR ^226 

JMP GGDONE 



HOV R5,$rHP10 

HOV R4.$THP11 

HOV #GGP5.$THP3 

HOV #GGP5.$THP4 

HOV #GGDAT0,STnP5 

HOV /rGGP6.$THP6 

ERROR +227 

JMP GGDONE 



CKFPBCO FPIIF FLTG PNT PRT B 
TEST # 2 - OVER\UNDER TEST 



BACRO HI 113 20-OCT-81 08:27 



C 4 
PAGE 12-2 



SEQUfcNCE 



2160 




001236 




2161 010630 


013701 




2162 010634 


062701 


000002 




2163 010640 


020116 






2164 010642 


001402 


037450 




2165 010644 


000137 




2166 010650 








2167 010650 


170301 






2168 010652 


020127 


000012 




2169 010656 


001372 






2170 010660 


022626 


011734 




2171 010662 


012700 




2172 010666 


174010 




001240 


2173 010670 


012737 


01 1 764 


010676 


012737 


011754 


001242 


010704 


012737 


011734 


001244 


010712 


012737 


012014 


001246 


010720 


104224 






010722 


000137 


012054 




2174 








2175 010726 




001252 




010726 


010537 




010732 


010437 


001254 




010736 


012737 


011764 


001240 


010744 


012737 


011754 


001242 


010752 


012737 


01 1 734 


001244 


010760 


012737 


012014 


001246 


010766 


104207 






010770 


000137 


012054 




2176 








2177 010774 








010774 


010537 


001252 




011000 


010437 


001254 


A A4 ^ > A 

001240 


011004 


012737 


01 1 764 


011012 


012737 


011754 


001242 


011020 


012737 


011734 


001244 


011026 


012737 


012014 


001246 


011034 


104232 






011036 


000137 


012054 




2178 








2179 011042 








011042 


010537 


001252 




011046 


010437 


001254 


AA4 a 

001240 


011052 


012737 


01 1 764 


011060 


012737 


011754 


001242 


011066 


012737 


01 1 734 


001244 


011074 


012737 


012024 


001246 


011102 


104225 






011104 


000137 


012054 




2180 








2181 011110 








011110 


010537 


001252 




011114 


010437 


001254 




011120 


012737 


011764 


001240 


011126 


012737 


011754 


001242 


011134 


012737 


011734 


001244 


Oil 142 


012737 


012024 


001246 



6GER7: 



5$: 
10S: 



IS: 



GGER8: 



1$: 



GGER9: 



IS: 



G6ER10: 



IS: 



GGER11 



MOV $T«P2.R1 

ADD n.^\ 

CW» RI.(SP) 

BEQ 10S 

JW> FPSPUR 

STST Rl 

CW» R1./H2 

6NE 5S 

C«P (SP)*. (SP)* 

NOV /TGGDATO.RO 

STD ACO^CRO) 

MOV #GGP3,$THP3 

NOV »GGP2,STNP4 

NOV #GGDAT0,STNP5 

NOV #66P6,STHP6 

ERROR *224 

JNP GGDONE 



NOV R5,STNP10 

NOV R4,STNP11 

NOV #GGP3.STNP3 

NOV #GGP2.STNP4 

NOV #GGDAT0,STNP5 

NOV #GGP6,STMP6 

ERROR ^207 

JNP GGDONE 



NOV R5,STNP10 

NOV R4,STNP11 

NOV *G6P3,STNP3 

NOV *6GP2.STNP4 

NOV *6GDAT0,STNP5 

NOV *G6P6,STNP6 

ERROR +232 

JNP GGDONE 



NOV R5,STNP10 

NOV R4,STMP11 

NOV »GGP3,STHP3 

NOV #GGP2.$THP4 

NOV #GGDAT0,STHP5 

NOV «GGP7,STHP6 

ERROR >225 

JNP GGDONE 



NOV R5,STNP10 

NOV R4,$TNP11 

NOV *GGP3,$TNP3 

NOV #GGP2,$TNP4 

NOV #GGDAT0,STNP5 

NOV #GGP7,STNP6 



CKFPBCO FPIIF FLTG PNT PRT B MACRO «ni3 20-OCT-81 
TEST » 2 - OVER\UNDER TEST 



011150 


104207 






IS: 


ERROR 


011152 


0001 37 


012054 






JMP 


2182 








GGER12: 




2183 011156 

b 1 \U will 










011156 


010537 


001252 






NOV 


011162 


010437 


001254 






NOV 


011166 


012737 


01 1 764 


001240 




NOV 


011174 


012737 


011754 


001242 




NOV 


011202 


012737 


011734 


001244 




NOV 


011210 


012737 


012024 


001246 




NOV 


011216 


104231 






IS: 


ERROR 


011220 


000137 


012054 






JNP 


218A 








GGER13: 




2185 011224 










011224 


010537 


001252 






NOV 


011230 


010437 


001254 






NOV 


011234 


012737 


011764 


001240 




NOV 


011242 


012737 


011754 


001242 




NOV 


011250 


012737 


011734 


001244 




NOV 


011256 


012737 


012024 


001246 




NOV 


011264 


104230 






IS: 


ERROR 


011266 


000137 


012054 






JNP 


2186 








G6ER14: 




2187 011272 


013701 


001236 




NOV 


2188 011276 


062701 


000002 






ADD 


2189 011302 


020116 








CNP 


2190 011304 


001402 






5S: 


BEQ 


2191 011306 


000137 


037450 




JNP 


2192 011312 








10S: 


CTCT 


2193 011312 


1 70301 








2194 011314 


020127 


000012 






CNP 


2195 011320 


001 37i 








BNE 


2196 011322 


022626 








CNP 


2197 011324 


012700 


011734 






NOV 


2198 011330 


174010 








STD 


2199 

2200 011332 


012737 


011744 


001240 




NOV 


011340 


012737 


011764 


001242 




NOV 


011346 


012737 


011734 


001244 




NOV 


011354 


012737 


012014 


001246 




NOV 


011362 


104222 






IS: 


ERROR 


011364 


000137 


012054 






JNP 


2201 








GGER15: 




2202 011370 










011370 


010537 


001252 






NOV 


011374 


010437 


001254 






NOV 


011400 


012737 


011754 


001240 




NOV 


011406 


012737 


012034 


001242 




NOV 


011414 


012737 


011734 


001244 




NOV 


011422 


012737 


012014 


001246 




NOV 


011430 


104207 






IS: 


ERROR 


011432 


000137 


012054 






JNP 


2203 








GGER16: 




2204 011436 










011436 


010537 


001252 






NOV 


011442 


010437 


001254 






NOV 


011446 


012737 


011754 


001240 




NOV 



D 4 

08:27 PAGE 12-3 SEQUENCE 

♦207 
GGDONE 

R5.STHP10 

R4.STNP11 

«GGP3,STNP3 

#6GP2,STNP4 

#GGDAT0,STNP5 

#GGP7«STHP6 

♦231 

GGDONE 

R5,STNP10 

R4,STNP11 

#6GP3,STNP3 

#GGP2,STNP4 

«GGDAT0,STNP5 

#66P7.$TNP6 

♦230 

GGDONE 

STNP2,R1 
#2,R1 

RK(SP) 
10i 

FPSPUR 
Rl 

R1,#12 
5S 

(SP)^,(SP)^ 

#66DAT0,R0 

AC0,(R0} 

«66PUSTNP3 
#66P3,STNP4 
#66DATO«STNP5 
#G6P6,STNP6 

♦222 
GGDONE 

R5.$TNP10 

R4,STNP11 

#GGP2,STNP3 

#6GP8,STNP4 

#GGDAT0«STNP5 

#GGP6,STNP6 

♦207 

GGDONE 



R5,$TNP10 
R4,STNP11 
#GGP2«STHP3 



CKFPBCO FP11F FLTG PNT PRT B 
TEST # 2 - OVERVUNDER TEST 



HACRO HI 113 20-OCT-81 08:27 PAGE 



E 4 
12-4 



SEQUENCE A3 



01U54 


012737 


012034 


001242 


011462 


012737 


011734 


001244 


011470 


012737 


012014 


001246 


011476 


104232 






011500 


000137 


012054 




2205 








2206 011504 








011504 


010537 


001252 




011510 


010437 


A A 4 ^ f / 

001254 




011514 


012737 


A4 ^ 7C / 

01 1 754 


AA4 ')y A 

001240 


011522 


012737 


012034 


AA4 ^y ^ 

001242 


011530 


012737 


A4 4 ^9 t 

01 1 734 


AA4 ^y y 

001244 


011536 


012737 


012044 


AA4 ^y ^ 

001246 


011544 


104223 






011346 


000137 


A4 t Af / 

012054 




2207 








2208 011552 




A A 4 ^ r ^ 

001252 




011552 


010537 




011556 


010437 


A A 4 ^ P / 

001254 




01 1 562 


/\4 

012737 


A4 4 9cy 

01 1754 


AA4 A 


011570 


A4 ^^V^ 

012737 


012034 


AA4 


011576 


012737 


A4 4 99 / 

01 1 734 


AA4 t 

001244 


011604 


012737 


A 4 ^t\i i 

012044 


AA4 ^y ^ 

001246 


011612 


4 A / A^ 

104207 






011614 


000137 


A4 'tAC y 

012054 




2209 








2210 011620 




AA4 

001252 




011620 


A 4 A r 

010537 




011624 


A4 Ay 

010437 


AA1 '^cy 

001254 




011630 


A4 ^^T7 

012737 


011754 


AA1 ^/ A 


4 4 ^ 9^ 

011636 


A4 ^7T7 

012737 


012034 


AAi ^y ^ 

0012^2 


011644 


A 4 

012737 


A 4 4 99 y 

01 1 734 


AA4 '^y y 

001244 


A4 4 £ 

011652 


A4 ^^V^ 

012737 


A 4 '^Ay y 

012044 


AA4 '^y X 

001246 


011660 


4 A / 

104230 






011662 


AAA 4 9^ 

000137 


A4 ^AP y 

012054 




2211 








'%A4'\ ^ M A M 

2212 011666 




AA4 1C ^ 

001252 




011666 


A4 AP 

010537 




A4 4 £ 

011672 


A4 i\l 97 

010437 


AA4 oc y 
001 2Sh 




A4 4 ^ 

011676 


A4 ^9T9 

012737 


A4 4 9Cy 

01 1 r54 


AA4 Oy A 

001 c40 


011704 


012737 


A4 ^A9y 

012034 


AA4 ^y o 

001242 


A4 4 Y4 ^ 

011712 


012737 


01 1 734 


AA1 y 


01 1 720 


012737 


012044 


AA1 'it 

001246 


A4 4 

011726 


4 Ay 

104231 






011730 


AAA1 97 

000137 


A1 ')ACy 




2213 








'%'%4 / A4 4 

2214 011734 

2215 011/36 


AAAAAA 

000000 






AAAAAA 

000000 






2216 011740 


AAAAAA 

000000 






'\'%4 ^ /\4 4 ^/ ^ 

2217 011742 


AAAAAA 

000000 














2219 011744 


000300 






2220 011746 


000000 






011750 


000000 






2222 011752 


000000 






2223 011754 


100200 






2224 011756 


000000 







IS: 



G6ER17: 



IS: 



NOV 

NOV 

NOV 

ERROR 

JNP 



NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

ERROR 

JNP 



6GER18: 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 

IS: ERROR 
JNP 

GGER19: 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 

IS: ERROR 
JNP 

GGER20: 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 

IS: ERROR 
JNP 

GGDATO: 0 
0 
0 
0 



GGP1: 



6GP2: 



300 
0 
0 
0 

100200 
0 



#GGP8«STNP4 

#GGDATO,STNPS 

«GGP6,STNP6 

♦232 

GGDONE 



R5,STNP10 

R4,STNP11 

#GGP2,STHP3 

f6GP8,STNP4 

#GGDAT0,STNP5 

#GGP9,STNP6 

♦223 

GGDONE 



R5.STMP10 

R4.STHP11 

#66P2,STHP3 

#«"6P8,STHP4 

#viGDAT0,STNP5 

#GGP9,STNP6 

♦207 

GGDONE 



R5,STNP10 

R4,STNP11 

#G6P2.STNP3 

«6GP8,STNP4 

#G6DAT0,STNP5 

#GGP9,STNP6 

♦230 

GGDONE 



R5.STNP10 

R4,STNP11 

#6GP2,STNP3 

f6GP8.$TNP4 

#GGDAT0,STNP5 

fGGP9,STNP6 

♦231 

GGDONE 
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2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
223A 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 



011760 
011762 
01 1 764 
011766 
011770 
011772 
011774 
011776 
012000 
012002 
012004 
012006 
012010 
012012 
012014 
012016 
012020 
012022 

012024 
012026 
012030 
012032 
012034 
012036 
012040 
012042 
012044 
012046 
012050 
012052 
012054 
012054 



ooooo: 

000000 
000200 
000000 
000000 
000001 
010200 
000000 
000000 
000000 
077600 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

062400 
000000 
000000 
000000 
000340 
000000 
000000 
000000 
000100 
000000 
000000 
000000 

104412 



6GP3: 
GGP4: 
GGP5: 
GGP6: 

G6P7: 
66P8: 
66P9: 
66D0NE: 



0 
0 

200 
0 
0 
1 

10200 
0 
0 
0 

77600 

0 

0 

0 

0 

0 

0 

0 

62400 
0 
0 
0 

340 
0 
0 
0 

100 
0 
0 
0 

RSETUP 



2257 
2263 



F 4 
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SEQUENCE 



.-OVER FLOW = GGP5 * 66P5 



OVERFLOW RESULT 
UNDERFLOW RESULT 
66P6 = GGP4 ♦ GGP5 

= GGP3 ♦ GGP2 (FIU = 0) 

= GGP3 ♦ GGPl 
GGP7 = GGP3 ♦ GGP2 (FIU = 1) 



GO INITIALIZE THE FPS AND STACK: AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER rrPED CONTROL G?). 
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SEQUENCE 



2264 



012056 

2265 

2266 012060 
012060 

2267 012062 

2268 012066 

2269 012070 

2270 012074 

2271 012076 
lin 012102 

2273 012110 

2274 012112 

2275 012116 

2276 012120 

2277 012124 

2278 012124 

2279 012126 

2280 012132 

2281 012134 

2282 012140 

2283 012144 

2284 012146 

2285 012150 

2286 012154 

2287 012160 

2288 012164 

2289 012166 

2290 012170 

2291 012174 

2292 012176 

2293 012202 

2294 012204 

2295 012210 

2296 012212 

2297 012214 
2298 

2299 012220 
012220 

2300 012222 

2301 012226 
2302 

2303 012230 

2304 012234 
2305 

2306 012236 

2307 012242 
2308 

2309 012250 
2310 

2311 012252 



000004 



012700 
012737 

170001 

177420 



.S8TTL TEST « 3 - LDCFD AND LDCDF TEST 
;*TEST 3 LDCFD AND LDCDF TEST 



:*THIS IS A TEST OF IDCFD AND LDCDF. 
• * 



104413 






LPERR 


012704 


000200 




NOV 


170104 






LDFPS 


012700 


013474 




NOV 


172410 






LDD 


012700 


013504 




NOV 


012737 


012110 001236 




MOV 


177420 




HX2: 


LDCFD 


020027 


013510 




CW> 


001402 






BEQ 


000137 


013052 




JMP 






HX3: 




170205 






STFPS 


012700 


013464 




NOV 


174010 






STD 


012701 


013554 




NOV 


012702 


000004 




NOV 


022120 




HX4: 


CNP 


001415 






BEQ 


012701 


013504 




NOV 


012700 


013464 




NOV 


012702 


AAAAA/ 
000004 




NOV 


022120 




HX5: 


CNP 


001402 






BEQ 


000137 


013112 




JNP 


077205 




HX6: 


SOB 


000137 


013142 




JNP 


077220 




HX7: 


SOB 


012704 


000200 




NOV 


020405 






CMP 


001402 






BEQ 


000137 


013210 




JNP 






:NOU 


TEST 






HX8: 




104413 






LPERR 


012704 


000200 






170104 








012700 


013474 




NOV 


172410 






LDO 



TST3: SCOPE 

.TEST FOR CORRECT AUTO INCRENENT CONSTANT. 
HX1: 



013504 
012252 



001236 



HX9: 



NOV 
NOV 

SETF 

LDCDF 



#200,R4 
R4 

*HXP1,R0 

(RO).ACO 

4fHXP2,RO 

#HX2,$TNP2 

(RO)*,ACO 

R0.#HXP2*4 

HX3 

HXER1 

R5 

#HXDATO,RO 
ACO,(RO) 
#HXP7,R1 
#4,R2 

(R1)*.(R0)* 
HX7 

*HXP2,R1 

«HXDAT0,R0 

#4,R2 

(R1)*,(R0)* 

HX6 

HXER2 

R2,HX5 

NXER3 

R2.HX4 

#200.R4 

R4.R5 

HX8 

HXER8 

LDCDF 



NOV «200,R4 
LDFPS R4 

#HXP1 ,R0 
(RO),ACO 

#HXP2.R0 
#HX9,iTNP2 



(RO)^«ACO 



;SET UP THE LOOP ON ERROR ADDRESS. 



;IS RO CORRfcCT 



;GET FPS 
;6ET ACO 

:SEE IF RESULT IS 
.•CORRECT 



.-DID FD GET 
;COnPLI«ENTED? 



;FPS CORRECT? 



:SET UP THE LOOP ON ERROR ADDRESS. 



;TEST INSTRUCTION 



CKfPBCO FP11F FLTG PHI PRT B HACRO «1113 
TEST # 3 - LDCFD AND LDCDF TEST 



2312 

2313 012254 

2314 012260 

2315 012262 
2316 

2317 012266 

2318 012266 

2319 012270 

2320 012274 

2321 012276 

2322 012300 

2323 012304 

2324 012310 

2325 012312 
2326 

2327 012314 

2328 012320 

2329 012324 

2330 012330 

2331 012332 

2332 012334 

2333 012340 

2334 012342 
2335 

2336 012346 
2337 

2338 0123S0 

2339 012354 

2340 012356 

2341 012360 
2342 

2343 
2344 

2345 012364 
012364 

2346 

2347 012366 

2348 012372 

2349 012374 

2350 012402 

2351 012410 

2352 012412 

2353 012416 

2354 012420 

2355 012422 

2356 012424 

2357 012432 

2358 012436 

2359 012440 
2360 

2361 012444 
012444 

2362 

2363 012446 

2364 012452 

2365 012454 

2366 01246? 



020027 
001402 
000137 



170205 
012700 
170011 
174010 
012701 
012702 
022120 
001415 

012701 
012700 
012702 
022110 
001402 
000137 
077205 
000137 

077220 

012704 
020405 
001402 
000137 



104413 

012704 
170104 
012737 
012737 
005001 
177437 
005201 
005201 
005201 
012737 
020127 
001402 
000137 



104413 

012704 
170104 
012737 
012700 



013514 
013072 

013464 



013564 
000004 



013554 
013464 
000004 



013226 
013256 

000000 
013210 



HXIO: 



HXll: 

HX12: 
HX13: 
HX14: 



;TEST 
HX15: 



000200 

012412 001236 
013306 000004 

043243 



037502 000004 
000003 

013342 



000200 

012502 001236 
013544 



HX16: 
HX165 



HX17: 



H 4 
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SEQUENCE 46 



CMP 
BEQ 
JMP 



R0-#HXP2*10 

HXIO 

HXER5 



WAS A GOOD 
CONSTANT USED 
TO INCREMENT RO? 



STFPS 

nov 

SETD 

STD 

MOV 

MOV 

CMP 

BEO 

MOV 
MOV 
MOV 
CMP 
BEQ 
JMP 
SOB 
JMP 

SOB 

MOV 
CMP 
BEQ 
JMP 



R5 

#HXDATO.R0 

ACO,(RO) 
#HXP8,R1 
#4.R2 

(R1)+.(R0)+ 
HX14 

#HXP7,R1 

#HXDATO,R0 

#4-R2 

(R1)*.(R0> 

HX13 

HXER6 

R2,HX12 

HXER7 

R2.HX11 

#0,R4 
R4,R5 
HX15 
HXER8 



;6ET RESULT 
;1S IT CORRECT? 



;DID FD FAIL TO GET 
.•COMPLIMENTED? 



;FPS CORRECT? 



;R7 immediate mode CONSTANT 



LPERR 

MOV #200,R4 

LDfPS R4 

MOV «NX16.STNP2 

MOV #HXER9.ERRVECT 

CLR R1 

LDCFD #5201 ,ACO 

INC Rl 

INC R1 

INC Rl 

MOV #CPSPUR.ERRVECT 

CMP Rl-#3 

BEQ HX17 

JMP HXERIO 



.-SET UP THE LOOP ON ERROR ADDRES*:. 
;SET FD 



;SEE IF PC WAS 
.CORRECT 



LPERR 

MOV 
LDFPS 
MOV 
MOV 



#200. R4 
R4 

#HXl8.$TnP2 
#HXP6.R0 



;SET UP THE LOOP ON ERROR ADDRESS. 
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13-2 



2367 012A66 

2368 012470 

2369 012476 

2370 012502 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 



012504 
012510 
012512 
012516 
012522 
012524 
012526 
012532 



2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 

2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 



012534 
012534 
012536 
012542 
012544 
012552 
012556 
012560 
012564 

012566 
012572 

012574 
012600 
012604 
012606 

012610 
012614 
012620 
012624 
012626 
012630 
012634 
012636 

012642 



012644 
012644 
012646 
012652 

012654 
012660 
012662 

012664 
012672 



172410 
012737 
012700 
177410 

012700 
174010 
012701 
012702 
022021 
001402 
000137 
077205 



104413 
012704 
170104 

012700 
172410 
172010 

012737 
012700 



037502 
013504 



013464 

013554 
000004 



013112 



104413 




012704 


000200 


170104 








012700 


013544 


172410 




012700 


013524 


177410 




012700 


013464 


174010 




012701 


013534 


012702 


000004 


022120 




001415 




012701 


013554 


012700 


013464 


012702 


000004 


022120 




001402 




000137 


013374 


077205 




000137 


013414 


077220 





000200 
013474 



012676 
013474 



000004 



HX18: 

HX19: 
HX20: 



LDD 

nov 
nov 

LDCFD 

HOV 
STD 

nov 

NOV 
CMP 
BEQ 
J«P 

soe 



(RO),ACO 
#CPSPUR.ERRVECT 
»HXP2,H0 
(RO),ACO 

#HXDATO,RO 
ACO.(RO) 
#HXP7,R1 
#4.R2 

(R0)*.(R1)* 
HX20 
HXER2 
R2,HX19 



;GET RESULT. 

;IS RESULT CORRECT? 



001236 



.-TEST LDCFD UI 
HX21 : 

LPERR 

HOV 

LDFPS 

nov 
nov 

LDD 

nov 

HX22: LDCFD 



nov 

STD 

nov 

NOV 
CNP 
BEQ 

NOV 
NOV 
NOV 
CNP 
BEG 
JNP 
SOB 
JNP 

SOB 

LDCFD 



HX23; 

HX24: 

HX25: 

HX26: 
.-TEST 
HX27: 



TH NEGATIVE OPERAND 

:SET UP THE LOOP ON ERROR ADDRESS. 

#200, R4 

R4 

#HX22,$TnP2 

#HXP6,R0 

(RO),ACO 

#HXP4,R0 

(RO),ACO 



001236 



LPERR 

NOV 

LDFPS 

NOV 

LDD 
ADDD 

NOV 
NOV 



#HXDATO,R0 
ACO,(RO) 

#HXP5,R1 
#4,R2 

(R1)*.(R0)* 
HX26 

#HXP7,R1 

#HXDAT0,R0 

#4,R2 

(R1)*,(R0)* 

HX25 

HXER11 

R2,HX24 

HXER12 

R2,HX23 

0 



#200, R4 
R4 

#HXP1,R0 
(R0),AC0 
(RO),ACO 

#HX28,STNP2 
#HXP1,R0 



;GET RESULT 



:UAS SIGN INCORRECT 



:SET UP THE LOOP ON ERROR ADDRESS. 
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SEQUENCE 48 



2A22 

2A23 

2A24 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 



012676 177410 
012700 170205 



012702 
012706 

012710 
012714 
012720 
012722 
012724 
012730 

012732 
012736 
012740 
012742 



012746 
012746 
012750 
012754 

012756 
012762 

012764 
012772 
012776 



013002 
013006 

013010 
013014 
013020 
013022 
013024 
013030 

013032 
013036 
013040 
013042 
013046 



013052 
013060 
013064 
013066 



012700 
174010 

012701 
012702 
022120 
001402 
000137 
077205 

012704 
020405 
001402 
000137 



104413 
012704 
170104 

012700 
172410 

012737 
012700 
177410 



013000 170205 



012700 
174010 

012701 
012702 
022120 
001402 
000137 
077205 

012704 
020405 
001402 
000137 
000137 



012737 
010037 
104234 
000137 



013464 



013474 
000004 



013444 
000204 
0*3172 

000200 
013544 



012776 
013474 



013464 



013474 
000004 



013444 
000204 



013172 
013574 



013510 
001240 

013574 



NX28: LDCFD 
STFPS 



MOV 

STD 

nov 
nov 

CMP 
BEQ 
JMP 

soe 

MOV 
CMP 
BEQ 
JMP 

LDCFD 



HX29: 
HX30: 



.-TEST 
HX31 : 



001236 



HX32: 



HX33: 
HX34: 



LPERR 

MOV 

LDFPS 

MOV 

LDD 

MOV 
MOV 

LDCFD 



MOV 

STD 

MOV 
MOV 
CMP 
BEQ 
JMP 
SOB 

MOV 
CMP 
BEQ 
JMP 

HX35: JMP 
;R0 INCORRECT 



001242 HXER1 



(R0),AC0 
R5 

«HXDAT0,R0 
ACO,(RO) 

#HXP1,R1 
#4-R2 

(Rb + .(RO)* 
HX30 
HXER13 
R2.HX29 

#204 ,R4 
R4-R5 
HX3l 
HXER4 



#200, R4 
R4 

#HXP6,R0 
(RO).ACO 

#HX32.$TMP2 

#HXP1.R0 

(RO),ACO 



STFPS R5 



;GET RESULT 
;IS IT 0? 

;FPS CORRECT 



.-SET UP THE LOOP ON ERROR ADDRESS. 



MOV 
MOV 

IS: ERROR 
JMP 



fHXDATO.RO 
ACO.(RO) 

#HXP1.R1 
#4,R2 

(R1)*.(R0)* 
HX34 
HXER13 
R2,HX33 

#204 ,R4 
R4.R5 

mis 

HXER4 
HXDONE 



#HXP2*4-$TMP4 
RO.STMPS 
♦234 
HXDONE 



;6ET RESULT 
;IS IT ZERO? 

;FPS CORRECT? 



CKFPBCO FP11F FLTG PNT PRT B MACRO H1113 
TEST # 3 - LDCFD AND LDCDF TEST 



20-OCT-81 08:27 PAGE 



K A 
13-4 



SEQUENCE 49 



2478 

2479 015072 

2480 013100 

2481 013104 

2482 013106 
2483 

2484 013112 

2485 013120 

2486 013126 

2487 013134 

2488 013136 
2489 

2490 013142 

2491 013150 

2492 013156 

2493 013164 

2494 013166 
2495 

2496 013172 

2497 013176 

2498 013202 

2499 013204 
2500 

2501 013210 

2502 013214 

2503 013220 

2504 013222 

2505 013226 

2506 013234 

2507 013242 

2508 013250 

2509 013252 
2510 

2511 013256 

2512 013264 

2513 013272 

2514 013300 

2515 013302 
2516 

2517 013306 

2518 013312 

2519 013314 

2520 013320 

2521 013322 
2522 

2523 013326 

2524 013332 

2525 013334 

2526 013336 
2527 

2528 013342 

2529 013346 

2530 013350 

2531 013354 

2532 013360 

2533 013362 

2534 013366 



012737 
010037 
104237 
000137 

012737 
012737 
012737 
104233 
000137 

012737 
012737 
012737 
104241 
000137 

010537 
010437 
104240 
000137 

010537 
010437 
104242 
000137 
012737 
012737 
012737 
104244 
000137 

012737 
012737 
012737 
104243 
000137 

032716 
001005 
022716 
001402 
000137 

011637 
022626 
104235 
000137 

162701 
006301 
012702 
010237 
160102 
010237 
104236 



013514 
001240 

013574 

013504 
013554 
013464 

013574 

013504 
013554 
013464 

013574 

001240 
001242 

013574 

001240 
001242 

013574 
013504 
013564 
013464 

013574 

013504 
013564 
013464 

013574 

000001 

012416 

037502 

001236 



013574 

000003 

012416 
001242 

001240 



001242 



001244 
001250 
001246 



001244 
001250 
001246 



001244 
001250 
001246 



001244 
001250 
001246 



HXER5 : 


MOV 


#HXP2*10,$TMP4 


MOV 


R0-$TMP3 


1$: 


ERROR 


♦257 




JMP 


HXDONE 


.REPORT 


BAD DATA 


HXER2: 


MOV 


fHXP2«STMP5 




MOV 


#HXP7,STMP7 


HXER22: 


MOV 


fHXDAT0,STMP6 


IS: 


ERROR 


♦233 




JMP 


HXDONE 


HXER3: 


MOV 


#HXP2,STMP5 


MOV 


#HXP7,STMP7 


HXER33: 


MOV 


#NXDAT0,STMP6 


1*: 


ERROR 


♦241 




JMP 


HXDONE 


HXER4 : 


MOV 


R5,$TMP3 




MOV 


R4.STMP4 


1$: 


ERROR 


♦240 




JMP 


HXDONE 


HXER8: 


MOV 


R5,STMP3 




MOV 


R4,STMP4 


1»: 


ERROR 


♦242 




JMP 


HX90Nc 


HXER6: 


MOV 


#HXP2,STMP5 




MOV 


mXP8,STMP7 


HXER66: 


MOV 


#HXDAT0,STMP6 


IS: 


ERROR 


♦244 




JMP 


HXDONE 


HXER7: 


MOV 


lfHXP2,$TMP5 




MOV 


#HXP8,STMP7 




MOV 


«HXDAT0,STMP6 


IS: 


ERROR 


♦243 




IMA 

JMP 


HXDUNfc 


HXER9: 


BIT 


#1.(SP) 




BNE 


IS 




CMP 


#HX165,(SP) 




BEQ 


IS 




JMP 


CPSPUR 


IS: 


MOV 


(SP),STMP2 




CMP 


(SP)+,(SP)^ 


2S: 


ERROR 


♦235 




JMP 


HXDONE 


HXERIO: 


SUB 


#3.R1 




ASL 


R1 




MOV 


#HX165,R2 




MOV 


R2.STMP4 




SUB 


R1.R2 , 




MOV 


R2.SrMP3 


IS: 


ERROR 


♦256 



•SEE IF IT 

;AN ODD ADDRESS 



CKFPBCO FPIIF FLTG PNT PRT B 
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L A 
13-5 



SEQUENCE 50 



2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 



013370 000137 013574 



013374 
013402 
013410 
013414 
013422 
013430 
013436 
013440 

013444 
013452 
013460 

013464 
013466 
013470 
013472 

013474 
013476 
013500 
013502 

013504 
013506 
013510 
013512 
013514 
013516 
013520 
013522 
013524 
013526 
013530 
013532 
013534 
013536 
013540 
013542 
013544 
013546 
013550 
013552 

013554 
013556 
013560 
013562 
013564 
013566 
013570 
013572 

013574 
013^74 



012737 
012737 
000137 
012737 
012737 
012737 
104245 
000137 

012737 
012737 
000137 

000000 
000000 
000000 
000000 

000000 
000000 
000000 
000000 

000577 
177776 
M7777 
}77776 
005201 
000000 
000000 
000000 
100577 
177776 
}77777 
^77776 
100577 
}77776 
000000 
000000 
000252 
125252 
125252 
125252 

000577 
}77776 
000000 
000000 
000577 
U7777 
000000 
000000 



104412 



013524 
013534 
013126 
013524 
013534 
013464 

013574 

013474 
013474 
013126 



001244 
001250 

001244 
001250 
001246 



001244 
001250 



HXER11 : 
HXER12: 
1$: 

HXER13: 
HXDATO: 

HXP1 ; 

HXP2: 
HXP3: 
HXP4 : 
HXP5: 
HXP6: 

HXP7: 
HXP8; 



JHP 

MOV 

MOV 

JWP 

MOV 

MOV 

MOV 

ERROR 

JMP 

MOV 
MOV 
JMP 

0 
0 
0 
0 

0 
0 
0 
0 

577 

177776 

}77777 

177776 

5201 

0 

0 

0 

100577 

177776 

\77777 

y77776 

m577 

}77776 

0 

0 

252 
125252 
125252 
125252 

577 
^77776 
0 
0 

577 

y77777 

0 

0 



HXDONE 



#HXP4,$THP5 

#HXP5-»THP7 

HXER2^ 

#HXP4,STMP5 

#HXP5,ITHP7 

#HXDAT0,ITMP6 

♦245 

HXDONE 

«HXP1,ITMPS 
#HXP1 .ITMP7 
HXER22 



HXDONE : 



RSETUP 



;60 INITIALIZE THE FPS AND STACK; AND 



CKfPeCO FP11F FLTG PNT PRT B HACRO H1113 
TEST f 3 - LDCFD AWD LDCDF TEST 



n 4 

20-OCT-81 08:27 PAGE 13-6 



SEQUENCE 



.-SEE IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOFTWARE 
.VIRTUAL CONSOLE SWITCH REGISTER (HAS 
:THE USER TYPED CONTROL G?). 

2591 
2592 
2593 
2601 



CKFPBCO FP11F FLTO f»NT PRT 
TEST # 4 - C«PD TEST 

2602 



B MACRO H1 113 20-OCT-81 08:27 



N 4 
PAGE 14 



SEQUENCE 5? 



2603 
2604 
2605 

2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 

2617 
2618 
2619 
2620 
c'621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 

2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 

2643 
2644 
2645 



013576 000004 



013600 
01 3600 
013602 
013606 
013616 
CI 3626 
013630 
013632 
013634 



013636 
013636 
013640 
013644 
013654 
013656 
013660 
013662 
013664 
013666 
013670 
013672 



013674 
013674 
013676 
013702 
013712 
013714 
013716 
013720 
013722 
013724 
013726 
013730 



013732 
013732 
013734 
013740 
013742 



104413 

004737 014412 

000000 000000 000000 

000000 000000 000000 

000200 

000204 

000200 

104001 



104413 

004737 014412 

000000 000000 000000 

025252 

052525 

125252 

052525 

000200 

000200 

000210 

104003 



104413 

004737 014412 

000000 000000 000000 

125252 

125252 

052525 

125252 

000200 

000210 

000200 

104004 



104413 

004737 014412 

025252 

052525 



,S8TTL TEST # 4 - CNPD TEST 



.••TEST 4 



C«PD TEST 



••THIS IS A TEST OF THE CHPD INSTRUCTION. NOTE THAT A SUBROUTINE 
;*IS USED TO SET UP OPERANDS. EXECUTE THE INSTRUCTION AND CHECK THE 
.••RESULTS 

;• ^ 

tST4: SCOPE 

;TEST THE C«PD INSTRUCTION WITH (FSRC=AC=0) 
AAA1: 



1$ 
2$ 
3$ 



4$: 



;TEST 
AAA2: 



1$: 
2$: 



3$: 



4$: 

.-TEST 
AAA3: 



1$: 
2$: 



3$: 



4$: 

.•TEST 
AAA4: 



1$: 



LPERR 
JSR 
.WORD 
.WORD 

200 
204 
200 
ERROR 



PC>CMPSUB 

0.6.0.0 

0.0,0.0 



♦ 1 



.•SET UP THE LOOP ON ERROR ADDRESS. 

;ACO 
;FSRC 

;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.•ERROR FPS 
:FPS ERROR 



CnPD WITH (AC=0) AND FSRC POSITIVE. 

.-SET UP THE LOOP ON ERROR ADDRESS. 



LPERR 
JSR 
.WORD 

25252 

52525 

125252 

52525 

200 

200 

210 

ERROR 



PC.CMPSUB 
0.0.0.0 



♦3 



;AC 
;FSRC 



;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.•ERROR FPS 
:FPS ERROR 



C«PD WITH (AC=0) AND FSRC NEGATIVE 

.-SET UP THE LOOP ON ERROR ADDRESS. 



LPERR 
JSR 
.WORD 
125252 
125252 
52525 
125252 
200 
210 
200 
ERROR 



PC.CMPSUB 
0.6.0.0 



♦4 



;AC 
.FSRC 



:FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.•ERROR FPS 
;FPS ERROR. 



CHPD WITH (FSRC=0) AND AC POSITIVE 

;SE7 UP THE LOOP ON ERROR ADDRESS. 
;AC 



LPERR 
JSR 
25252 
52525 



PC.CMPSUB 



CKFP8C0 FPIIF FLTG PNT PRT B 
TEST # 4 - CNPD TEST 
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SEQUENCE 53 



26A6 0137U 
26A7 013746 
26A8 013750 
26A9 013760 

2650 013762 

2651 013764 

2652 013766 
2653 

2654 
2655 

2656 013770 
013770 

2657 013772 

2658 013776 

2659 014000 

2660 014002 

2661 014004 

2662 014006 

2663 014016 

2664 014020 

2665 014022 

2666 014024 
2667 

2668 

2669 0K026 
014026 

2670 014030 

2671 014034 

2672 014036 

2673 014040 

2674 014042 

2675 014044 

2676 014046 

2677 014050 

2678 014052 

2679 014054 

2680 014056 

2681 014060 

2682 014062 
2683 

2684 
2685 

2686 014064 
014064 

2687 014066 

2688 014072 

2689 014074 

2690 014076 

2691 014100 

2692 014102 

2693 014104 

2694 014106 

2695 014110 

2696 014112 

2697 014114 

2698 014116 

2699 014120 



125252 
052525 

000000 000000 

000200 

000210 

000200 

104005 



104413 

004737 014412 

125252 

125252 

052525 

125252 

000000 000000 

000200 

000200 

000210 

104006 



104413 

004737 014412 

052525 

125252 

052525 

125252 

125252 

052525 

125252 

052525 

000200 

000210 

0C0200 

104007 



104413 

004737 014412 

125252 

052525 

125252 

052525 

052525 

125252 

052525 

125252 

000200 

000200 

000210 

104010 



000000 2$: 
3$: 



4$: 



125252 

52525 

.WORD 

200 

210 

200 

ERROR 



0,0,0,0 



♦5 



.TEST C«PD WITH (FSRC=0) AND AC 
AAA5: 



000000 



1$; 



2$: 
3$: 



4S: 



LPERR 

JSR 

125252 

125252 

52525 

125252 

.WORD 

200 

200 

210 

ERROR 



PC.C«PSUB 



0,0,0,0 



*6 



.•TEST C«PD WITH AC POSITIVE AND 
AAA6; 



1$: 

2$: 

3$: 
4$: 



LPERR 

JSR 

52525 

125252 

52525 

125252 

125252 

52525 

125252 

52525 

200 

210 

200 

ERROR 



PCCMPSUB 



♦7 



FSRC 

FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 
FPS ERROR 



NEGATIVE 

.SET UP THE LOOP PN ERROR ADDRESS. 
;AC 



FSRC 

FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 
FPS FRROR 



FSRC NEGATIVE 

:SET UP THE LOOP ON ERROR ADDRESS. 
;AC 

;;FSRC 



FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 
FPS ERROR 



.TEST C«PD WITH AC NEGATIVE AND FSRC POSITIVE 
AAA7: 

.-SET UP THE LOOP ON ERROR ADDRESS. 

PC.CHPSUB 

;AC 



1$ 



2$: 



3$: 



4S: 



LPERR 
JSR 

125252 
52525 
125252 
52525 
52525 
125252 
52525 
125252 
200 
200 
210 
ERROR 



♦10 



;FSRC 



FPC BEFORE EXECUTION 
^PS AFTER EXECUTION 
ERROR FPS 
FPS ERROR. 



CKFPBCO fPIIF flTG PHI PRT B 
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SEQUENCE 5^ 



2700 








270 1 








2702 








2703 


014122 








014122 


104413 


014412 


270A 


014124 


004737 


2705 


014130 


012345 




2706 


014132 


067654 




2707 


014134 


032101 




'708 


014136 


023456 




2709 


014140 


023456 




2710 


014142 


076543 




2711 


014144 


021012 




2712 


014146 


034567 




2713 


014150 


000200 




2714 


014152 


000200 




2715 


014154 


000210 




2716 


014156 


104011 




2717 








2718 








2719 








2720 


014160 
014160 


104413 




2721 


014162 


004737 


014412 


2722 


014166 


0^5676 




2721 


014170 


054321 




272^ 


014172 


012345 




2725 


014174 


067654 




2726 


014176 


034567 




2727 


014200 


065432 




272S 


014202 


101234 




2729 


014204 


056765 




2730 


014206 


000200 




2731 


014210 


000210 




2732 


014212 


000200 




2733 


014214 


104012 




2734 








2735 








2736 


014216 
014216 


104413 




2737 


014220 


004737 


014412 


2738 


014224 


012345 




2739 


014226 


067012 




2740 


014230 


034567 




2741 


014232 


012345 




2742 


014234 


012345 




2743 


014236 


067012 




2744 


014240 


034567 




2745 


014242 


012345 




2746 


014244 


000200 





.TEST 

.-AND 

AAA8 



1$: 

2$: 

3$: 
4$: 



.'TEST 
AAA9: 



1$: 
2S: 

3S: 

4$: 

;TEST 
AAA10 

1$: 
2$: 
3$: 



CMPD UJTH AC POSITIVE AND FSRC POSITIVE 
EAC LESS THAN EFSRC. 



LPERR 

JSR 

12345 

67654 

32101 

23456 

23456 

76543 

21012 

34567 

200 

200 

210 

ERROR 



PCCMPSUB 



♦11 



:SET UP THE LOOP ON ERROR ADDRESS. 
;AC 

;FSRC 



FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 
FPS ERROR 



CnPD yiTH AC POSITIVE. FSRC POSITIVE AND EAC GREATER THAN EFSRC 

;SET UP THE LOOP ON ERROR ADDRESS. 
;AC 



LPERR 
JSR 
45676 
54321 
12345 
67654 
34567 
65432 
101234 
56765 
200 
210 
200 
ERROR 



PCCnPSUB 



♦12 



;^SRC 



;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
; ERROR FPS 



CMPD UJTH AC POSITIVE. FSRC POSITIVE AND AC EQUAL TO FSRC 

;SET UP THE LOOP ON ERROR ADDRESS. 
;AC 



LPERR 
JSR 
12345 
67012 
34567 
012345 
12345 
67012 
34567 
012345 
200 



PC.CMPSUB 



;FSRC 



;FPS BEFORE EXECUTION 



CKfPSCO FPIIF FLTG PNT PRT B 
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2748 


014246 


000204 




2749 
2750 


014250 


000200 




014252 


104013 




2751 








2752 








2753 








2754 


014254 
014254 


104413 




2755 


014256 


004737 


014412 


2756 


014262 


012345 




2757 


014264 


067012 




2758 


014266 


034567 




2759 


014270 


012345 




2760 


014272 


012345 




2761 


014274 


070123 




2762 


014276 


045670 




2763 


014300 


123456 




2764 


014302 


000200 




2765 


014304 


000200 




2766 


014306 


000210 




2767 


014310 


104014 




2768 








2769 








2770 








2771 


014312 








014312 


104413 


014412 


2772 


014314 


004737 


2771 


014320 


054321 




277U 


014322 


076543 




277S 


014324 


021076 




2776 


014326 


054321 




2777 


014330 


054321 




277S 


014332 


065432 




2779 


014334 


107654 




2780 


014336 


032107 




2781 


014340 


000200 




2782 


014342 


000210 




2783 


014344 


000200 




2784 


014346 


104015 




2785 








2786 








2787 








2788 


014350 
014350 


104413 




2789 


014352 


004737 


014412 


2790 


014356 


112345 




2791 


014360 


043210 




2792 


014362 


076543 




2793 


014364 


021076 




2794 


014366 


112345 




2795 


014370 


054321 




2796 


014372 


007654 




2797 


014374 


032107 




2798 


014376 


000200 




2799 


014400 


000210 




2800 


014402 


000200 




2801 


014404 


104016 





204 
200 

4$: ERROR ^13 



.-TEST 

.AND 

AAA11 



1$: 
2$: 

3$: 

4$: 



CMPD WITH AC POSITIVE, 
FSRC GREATER THAN AC. 



LPERR 
J5R 
12345 
67012 
34567 
012345 
12345 
70123 
45670 
123456 
200 
200 
210 

ERROR ♦I 4 



PC.CHPSUB 



.•TEST CMPO WITH AC POSITIVE, 
.-AND AC GREATER THAN FSRC. 
AAA12 



IS: 



2$: 



3$: 



4*. 

.•TEST 

.AND 

AAA13 



1$: 

2$: 

3$: 

4$; 



LPERR 

JSR 

54321 

76543 

21076 

54321 

54321 

65432 

107654 

32107 

200 

210 

200 

ERROR 



PC.CMPSUB 



♦15 



CnPD WITH AC NEGATIVE, 
AC GREATER THAN FSRC 



lpe:<r 

JSR 

112345 

43210 

76543 

21076 

112345 

54321 

07654 

32107 

200 

210 

200 

ERROR 



PC.CHPSUB 



♦16 



;FPS AFTER EXECUTION 
.ERROR FPS 
;FPS ERROR 

FSRC POSITIVE, EAC EQUAL TO EFSRC, 



.SET UP THE LOOP ON ERROR ADDRESS. 
;AC 

;FSRC 



;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.•ERROR FPS 
;FPS ERROR 

FSRC POSITIVE, EAC EQUAL TO EFSRC, 



;SFT UP THE LOOP ON ERROR ADDRESS. 
;AC 

;FSRC 



;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.'ERROR FPS 
;FPS ERROR 

FSRC NEGATIVE. EAC EQUAL TO EFSRC. 



;SET UP THE LOOP ON ERROR ADDRESS. 
;AC 

;FSRC 



FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR FPS 
;FPS ERROR 
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SEQUENCE 56 



2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 

2811 

2812 

2813 

28U 

2815 

2816 

2817 

2818 

2819 

2820 

2821 

2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 

2843 

2844 

2845 

2846 

2847 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 



014406 000137 014602 



AAADONE 



.•FINISHED CHPD TEST. 



THIS SUBROUTINE. CMPSUB. IS CALLED TO SET UP, EXECUTE 
AND CHECK THE RESULTS OF A CMPD INSTRUCTION. 
IT IS CALLED THUS: 



JSR 

ACAR6: .WORD 
FSRCARG.-.UORD 
FPSS: .WORD 



fPSA: 
FPSE: 
ERR: 
CONT: 



.WORD 
.WORD 
ERROR 



PCCMPSUB 

X ^ X ^ X ^ X 

X # X # X # X 

X 

X 

X 

♦X 



:AC OPERAND 

;FSRC OPERAND 

;FPS BEFORE EXECUTION 

:FPS AFTER EXECUTION 

.•ERROR FPS 

;FPS ERROR 

.•RETURN ADDRESS 



THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 

FPS8 IS LOADED INTO THE FPS. THE INSTRUCTION. C«PD. IS EXECUTED. 

AFTER THE EXECUTION THE FPS IS CHECKED AGAINST FPSA. IF IT IS A MATCH 

THEN THERE WAS NO ERROR AND CONTROL IS RETURNED TO CONT. IF 

THE FPS IS INCORRECT IT IS COIVARED WITH FPSE IN AN ATTEMPT TO ANALYSE 

THE FAILURE. IF THE FPS IS THE SAME AS FPSE THEN CONTROL IS 

RETURNED TO THE ERROR CALL AT LOCATION ERR. IF THE FPS WAS 

NOT CORRECT BUT DIDN'T HATCH FPSE A GENERAL ERROR IS REPORTED 

AND CONTROL IS PASSED TO CONT. 



014412 


012601 






CMPSUB: 


MOV 


014414 


016100 


000020 






MOV 


014420 


170100 








LDFPS 


014422 


012737 


014444 


001236 




MOV 


014430 


010100 








ROV 


014432 


172410 








LDD 


014434 


010100 








nov 


014436 


062700 


000010 






ADD 


014442 


000240 






1$: 


NOP 


014444 


173410 






cnpD 


014446 


170205 








STFPS 


014450 


016104 


000022 






NOV 


014454 


010137 


001240 






MOV 


014460 


010137 


001242 






MOV 


014464 


062737 


000010 


001242 




ADD 


014472 


010537 


001244 






MOV 


014476 


010437 


001246 






MOV 


014502 


020405 








CMP 


014504 


001410 








BEQ 


014506 


026105 


000024 






CMP 



(SP)*,R1 

20(R1},R0 
RO 

#1$.$TMP2 

R1.R0 
(RO).ACO 

ri.ro 

#10,R0 



(RO) ,AC0 
R5 

22(R1),RA 

R1.$TMP3 
R1 .STMPA 
#10.$T«P4 
R5.iTMP5 
94,$TMP6 

f;.r5 

3$ 

24(R1).R5 



;PICK UP A POINTER TO THE 
.•ARGUMENTS. 

;6ET THE FPS BEFORE EXECUTION. 
.•LOAD IT INTO THE FPS. 

.SAVE ADDRESS OF CKPD INSTRUCTION. 
.GET ADDRESS OF AC OPERAND. 
.-LOAD ACO OPERAND 

.•COMPUTE FSRC OPERAND 
.•ADDRESS 

;FOR SCOPING. 

;EXECUTE THE TEST INSTRUCTION, 

.-SAVE FPS AFTER INSTRUCTION. 

.-GET EXPECTED FPS. 

;IF INCORRECT SET UP FOR 

:AN ERROR CALL. 



;UAS FPS CORRECT? 
.•BRANCH IF YES. 

;WAS THE FPS THE SAME 



L 
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2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2881 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 



2891 
2892 
2893 
2901 



014512 
014514 
014520 



014522 
014524 

014526 
014532 
014534 
014536 
014542 
014544 
014546 



014554 
014554 
014560 
014566 
014570 



014602 
014602 



001003 
062701 
000111 



104001 
000411 

012700 
174010 
010102 
012703 
022220 
001003 
077303 



000026 



014572 
000004 



014550 000161 000030 



010137 
012737 
104002 
000767 



001240 
014572 



001242 



2$: 
3$: 

4$: 

5S: 
6$: 

7S- 



BNE 
ADD 



ERROR 
BR 

nov 

STD 

nov 

MOV 
CMP 
BNE 
SOB 

JMP 



HOV 

nov 

ERROR 
BR 



2$ 

#26.R1 

(R1) 



♦ 1 
5$ 



#C«PTnP,RO 
ACO,(RO) 
R1, R2 
#4-R3 

(R2>*,(R0)* 
6S 

R3,4$ 

30(R1) 



R1,fTnP3 
#CW»THP,$THP4 
♦ 2 
5S 



;AS THE EXPECTED INCORRECT FPS? 
.•BRANCH IF NO MATCH. 

;IF THE EXPECTED INCORRECT 
;FPS MATCHED THE RESULTANT FPS 

.•RETURN TO THE ERROR CALL 
;IN THE CALLING ROUTINE. 

.'OTHERWISE REPORT INCORRECT FPS 



;IF FPS WAS CORRECT MAKE SURE 
;ACO WAS NOT AFFECTED BY CMPO. 



.RETURN 

.-REPORT ACO MODIFIED BY CMPD 
.•RETURN 



014572 000000 000000 000000 CMPTMP: .WORD 0.0,0,0 



104412 



AAADONE: 



RSETUP 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 
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2902 



0U604 

2O03 
290A 

2905 014606 

2906 0U610 
2907 

2908 

2909 0U6U 

2910 0U616 

2911 0U624 

2912 0H632 

2913 014636 

2914 014640 
2915 

2916 014644 
2917 

2918 014646 

2919 014650 
2920 

2921 014652 

2922 014656 

2923 014660 
2924 

2925 014662 

2926 014666 

2927 014670 
2928 

2929 

2930 014672 
014672 

2931 014674 

2932 014700 
2933 

2934 014702 

2935 014710 

2936 014714 

2937 014716 

2938 014722 
2939 

2940 014724 

2941 014726 
2942 

2943 014730 

2944 014734 

2945 014736 
2946 

2947 014740 

2948 014744 



000004 



104413 
012704 



170104 
012737 
012737 
012700 
172410 
012701 

174411 

170205 
170303 

012704 
020405 
001131 

012702 
020203 
001140 



104413 
012704 
170104 

012737 
012700 
172410 
012700 
174410 

170205 
170303 

012704 
020405 
001102 

012702 
020203 



SBTTL TEST * 5 - DjVD WITH (FSRC=0) AND (BUT FD) TEST 
DJVD WITH (FSRC-0) AND (BUT FD) TEST 



•TEST 5 
* 

•THIS IS A TEST OF THE DJVD INSTRUCTION WITH A 
•ZERO DIVISOR. THE CONDITION IS CHECKED WITH BOTH 
•TRAP ENABLED AND TRAPS DISABLED. 
* 



TST5: 



SCOPE 



.•FIRST TEST DIVD WITH (FSRC=AC=0) AND TRAPS DISABLED. 



040200 



015060 
014644 
015264 

015264 



BBBO: 



000244 
001236 



LPERR 

nov 



LDFPS 

nov 
mv 
nov 

LDD 

nov 



#40200, R4 



R4 



SET UP THE LOOP ON ERROR AODRESS 
SET UP FPS 
WITH INTERRUPTS 
DISABLED. 



#8BBER1,FPVECT;SET UP FOR ANY FP INTERRUPTS. 
*8B81,$TnP2 

;SET UP ACO = 0 



/rSBBPl.RO 
(RO),ACO 
fSBBPURI 



BBB1 



DIVD (R1),AC0 



140204 



000004 



STFPS 
STST 

nov 
cnp 

BNE 

nov 
cnp 

BNE 



R5 
R3 

#1 40204, R4 

R4,R5 

BBBER2 

«4,R2 
R2.R3 
BBBER3 



FSRC = 0 

TEST INSTRUCTION 

GET fPS 
GET FEC 

EXPECTED FPS. 

IS FPS CORRECT. 

IF INCORRECT BRANCH. 

EXPECTED FEC. 

IS FEC CORRECT? 

IF INCORRECT BRANCH. 



.-TEST DIVD WITH (FSRC=0) AND TRAPS DISABLED. 
B6B2: 



040200 



014722 
015274 

015264 



140200 
000004 



001236 



BB63: 



LPERR 

nov 

LDFPS 

nov 
nov 

LDD 

nov 

DIVD 

STFPS 
STST 

nov 
cnp 

BNE 

nov 
cnp 



jy40200,R4 
R4 

«SB83.STnP2 
«8B8P2,R0 
(RO) ,ACO 
«8BBP1 ,R0 
(RO),ACO 

R5 
R3 

«1 40200, R4 

R4.R5 

B6BER2 

#4,R2 
R2,R3 



:SET UP THE LOOP ON ERROR ADDRESS 
:LOAD FPS WITH TRAPS DISABLED. 



.-SET UP ACO OPERAND (NON ZERO). 
;FSRC=0 



.GET FPS. 
;GET FEC. 

.•EXPECTED FPS. 
;IS FPS CORRECT? 
;IF INCORRECT BRANCH. 

.EXPECTED FEC. 
.WAS FEC CORRECT? 
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SEQUENCE 



014746 

2950 
2951 

2952 014750 
014750 

2953 014752 

2954 014756 
2955 

2956 014760 

2957 014766 

2958 014772 
2959 

2960 014774 

2961 015002 
2962 

2963 015006 

2964 015010 
2965 

2966 015012 
2967 

2968 015014 
2969 
2970 
2971 

2972 015020 

2973 015022 
2974 

2975 015026 

2976 0''5030 

2977 015032 
2978 

2979 015034 

2980 015040 

2981 015042 
2982 

2983 015044 

2984 015050 

2985 015052 
2986 

2987 015054 
2988 
2989 
2990 

2991 015060 

2992 

2993 

2994 015066 

2995 015072 

2996 015074 
2997 

2998 015100 

2999 015102 

3000 015104 

3001 015106 

3002 015114 

3003 015120 

3004 015124 



001111 



104413 
012704 
170104 

012737 
012700 
172410 

012737 
012700 

174410 
170000 

000502 

022716 



BNE 



BBBER3 



:IF INCORRECT BRANCH. 



;TEST DIVD VITH FSRC=0) AND TRAPS ENABLED. 
BBB4: 



021637 
001402 
000137 



000200 



015006 
015274 



015014 
015264 



001236 



000244 



015010 



BBB5; 



BBB6: 



LPERR 
NOV 
LDFPS 

NOV 
NOV 
LDD 

NOV 
NOV 

DIVD 
CFCC 

BR 

CNP 



#200. R4 
R4 

«8BB5.$TNP2 
«8BBP2,R0 
(RO) ,ACO 

«8BB6.FPVECT 
«8BBP1,R0 

(RO) ,ACO 



BBBER4 
«aaB5^2.(SP) 



:SET UP THE LOOP ON ERROR ADDRESS. 
;SET UP FPS. TRAP ENABLED. 



:SET UP ACO OPERAND (NON ZERO). 



;SET UP FOR THE EXPECTED INTERRUPT. 
;FSRC=0 

.-TEST INSTRUCTION (SHOULD RESULT IN TRAP) 



;60 REPORT FAILURE. NO TRAP. 

;TRAP TO HERE WHEN THE DIVISION BY 0 
.OCCURS. FIRST SEE IF THE ADDRESS OF 
.-THE TRAP IS 2*THE ADDRESS OF THE TEST 
:DIVD INSTRUCTION. 



001402 




BEO 


1$ 




000137 


037450 


JNP 


FPSPUR :IF NOT 


THEN REPORT AN UNE)(PECTED 






;FP TRAP. 


170205 




1$: STFPS 


R5 


;6ET FPS. 


170303 




STST 


R3 


;6ET FEC. 


022626 




CNP 


(SP)*.(SP)* 


.•RESET THE STACK. 


012704 


100200 


NOV 


#1 00200. R4 


.•EXPECTED FPS. 


020405 




CNP 


R4,R5 


.IS FPS CORRECT? 


001040 




BNE 


BBBER2 


:IF INCORRECT BRANCH. 


012702 


000004 


NOV 


#4.R2 


.•EXPECTED FEC. 


020203 


CNP 


R2.R3 


;IS FEC CORRECT? 


001047 




BNF 


Ba8£R3 


;IF INCORRECT BRANCH. 


000137 


015304 


JNP 


BBBDONE 


.-OTHERWISE GO TO NEXT TEST. 



062737 000002 001236 BBBER1: ADD 



;TRAP HERE IF AN UNEXPECTED INTERRUPT OCCURS. 



001236 
037450 



022626 
170303 
170205 

012737 000004 001240 
010337 001242 
010537 001244 
010037 001250 



1$: 



CNP 
BEO 
JNP 

CNP 

STST 

STFPS 

NOV 

NOV 

NOV 

NOV 



»2.SJnP2 .SEE IF THE INTERRUPT OCCURRED 

.-DURING THE EXECUTION OF THE DIVD 
.•INSTRUCTION BEING TESTED. 

(SP),$TNP2 
U 

FPSPUR ;IF NOT REPORT UNEXPECTED FP TRAP. 



(SP)*. (SP)* 

R3 

R5 

#4,$rNP3 
R3.$TNP4 
R5.$TNP5 
R0.$TNP7 



RESET THE STACK. 
GET FEC. 
GET FPS. 
EXPECTED FEC. 
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SEQUENCE 60 



3005 
3006 
3007 
3008 
30C9 
3010 
3011 
3012 
3013 
30U 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3051 
3032 
3033 
303A 
3035 
3036 
3037 
3038 
3039 
30A0 
3041 
3042 
3043 
3044 



015130 
015136 



015144 
015150 
015154 
015160 
015164 
015166 



015172 
015176 
015202 
015206 
015212 
015214 



015220 
015222 
015224 
015232 
015236 
015242 
015250 
015254 
015260 
015262 

015264 
015274 



015304 
015304 



3045 
3046 
3054 



012737 
104017 



015140 000137 



010537 
010437 
010037 
010137 
104020 
000137 



010337 
010237 
010037 
010137 
104021 
000137 



170303 
170205 
012737 
010337 
010537 
012737 
010037 
010137 
104022 
000410 

000000 
012345 



104412 



140200 
015304 



001242 
001244 
001246 
001250 

015304 



001242 
001240 
001246 
001250 

015304 



000004 
001240 
001244 
100200 
001250 
001252 



000000 
054321 



001246 



2$: 



«0V *1 40200, $THP6 
ERROR +17 



JHP 



B88D0NE 



.REPORT (BUT FO) FAILED RESULT1N(; IN AN FP TRAP 
;yiTH TRAPS DISABLED. 



.REPORT FPS INCORRECT: 



BBBER2: 



1$: 



nov 
nov 

NOV 
MOV 
ERROR 
JHP 



R5,$T«P4 
R4.$THP5 
R0.$T«P6 
R1.$THP7 
♦26 

BB6D0NE 



.REPORT FEC INCORRECT: 



BB6ER3 



1$: 



MOV 
MOV 
MOV 
MOV 
ERROR 
JMP 



R3.$TMP4 
R2.$TMP3 
R0,$TMP6 
R1,$TMP7 
♦21 

BB6D0NE 



.•REPORT NO TRAP OCCURRED AFTER TRYING TO DIVIDE 
:Br ZERO WITH ALL TRAPS ENABLED. 



B68ER4; 



001242 
001246 



000000 
023456 



1$: 



BB8P1: 
BB8P2: 



STST 
STFPS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ERROR 
BR 

.WORD 
.WORD 



R3 ;6ET FEC. 

R5 ;GET FPS. 

«4,$TMP4 
R3,$TMP3 
R5efTMP5 
#1 00200. $TMP6 
R0,$TMP7 
RI.STMPIO 

BBBDONE 

0.0.0.0 

1^345.54321.23456.76543 



BBBDONE : 



RSETUP 



GO INITIALIZE THE FPS AND STACK: AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TyPED CONTROL G?). 



L__ 
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.S8TTL TEST # 6 - DIVF TEST 

• • ****************************tt ************** *********** ******** 

;-iTEST 6 DIVF TEST 

• • 

)*THIS IS A TEST OF THE DIVF INSTRUCTION. NOTE THAT A SUBROUTINE IS 
;*USED TO SET UP THE OPERANDS, EXECUTE THE INSTRUCTION AND CHECK THE 

.♦RESULTS. 
: • 



SEQUENCE 61 



015306 


000004 




3056 






3057 






3058 015310 






015310 


104413 




3059 015312 


004737 


016070 


3060 015316 


000000 


000000 


3061 015322 


012345 


067012 


3062 015326 


000000 


000000 


3063 015332 


000000 




3064 015334 


000004 




3065 015336 


012345 


067012 


3066 015342 


104023 




3067 






3068 






3069 015344 






015344 


104413 




3070 015346 


004737 


016070 


3071 015352 


065652 


125252 


3072 015356 


065600 


000000 
125252 


3073 015362 


040252 


3074 015366 


003000 




3075 015370 


003000 




3076 015372 


040052 


125252 


3077 015376 


104024 




3078 






3079 






3080 015400 






015400 


104413 




3081 015402 


004737 


016070 


3082 015406 


076400 


000000 


3083 015412 


076400 


000000 


3084 015416 


040200 


000000 


3085 015422 


AAA 

001000 




3086 015424 


001000 




3087 015426 


140200 


000000 


3088 






3089 015432 


104025 




3090 






3091 






3092 015434 






015434 


104413 




3093 015436 


004737 


016070 


3094 015442 


056777 




3095 015446 


054200 


000000 


3096 015452 


042777 




3097 015456 


000000 




3098 015460 


000000 





TST6; SCOPE 

.CHECK DIVF WITH (AC=0). 

CCCl: 

LPERR 

JSR PC.DIVFSUB 

1^345,67012 
0,0 



12345,67012 
♦23 



IS: 


.WORD 


2$: 


.WORD 


3$: 


.WORD 


4S: 


0 




4 


5S: 


.WORD 


6S: 


ERROR 


.•TEST 


DIVF WITH 


CCC2: 






LPERR 




JSR 


1$: 


.WORD 


2S: 


.WORD 


3$: 


.WORD 


4S: 


7AAA 
3000 




3000 


5S: 


.WORD 


6S: 


ERROR 


;TEST 


DIVF WITH 


CClJ: 






LPERR 




JSR 


IS: 


.WORD 


2S: 


.WORD 


3$: 


.WORD 


4S: 


1000 




1000 


5$: 


.WORD 


6S: 


ERROR 


;TEST 


DIVF WITH 


CCC4: 






LPERR 




JSR 


IS: 


.WORD 


2S; 


.WORD 


3S: 


.WORD 


4S: 


0 




0 



PC.DIVFSU8 
65652,125252 
65600,0 
40252,125252 



40052,125252 
♦24 



PC-DIVFSUB 
76^00,0 
76400,0 
40200,0 



140200,0 
♦25 



PC. DIVF SUB 
56^77,177777 
54200,0 
42777,177777 



SET UP THE LOOP ON ERROR ADDRESS. 

AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION 
ERROR RESULT 
RESULT BAD. 



SET UP THE LOOP ON ERROR ADDRESS. 

AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RESULT. 
DIV NORMALIZE FAILURE 



;SE1 UP THE LOOP ON ERROR ADDRESS. 

;AC 

.FSRC 

*RES 

•FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR RES. 

:SIGN BAD. 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

.FSRC 

'RES 

•FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
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2000.2000 
♦23 



K 

17 



SEQUENCE 62 



3099 


015462 


002000 


002000 


5$: 


.WORD 


3100 


01 5466 


104023 




6$: 


ERROR 


3101 










THE DIVF 


3102 








.•TEST 


3103 


015470 






CCC5: 


LPERR 


015470 


104413 






3104 


015472 


004737 


016070 




JSR 


3105 


015476 


012377 


y77777 


1$: 


.WORD 


3106 


015502 


012300 


000000 


c9: 


.WHO 


3107 


015506 


040252 


125252 


3$: 


.WORD 


3108 


015512 


000000 




4$: 


0 


3109 


015514 


000000 




5$: 


0 


3110 


015516 


M7777 


^77777 


.WORD 


3111 


015522 


104023 




6$: 


ERROR 


3112 
3113 








.-TEST 


DIVIDE A 


31U 


015524 






CCC6: 




015524 


104413 






LPERR 


3115 


015526 


004737 


016070 


1$: 


JSR 


3116 


015532 


064600 


000001 


.WORD 


3117 


015536 


066600 


000000 


2$: 


.WORD 


3118 


015542 


036200 


000001 


3$: 


.WORD 


3119 


015546 


000000 




4$: 


0 


3120 


015550 


000000 




5$: 


0 


3121 


015552 


003000 


003000 


.WORD 


3122 


015556 


104023 




6$: 


ERROR 


3123 












3124 








.-TEST 


DIVF. 


3125 


015560 






CCC7: 






015560 


104413 






LPERR 


3126 


015562 


004737 


016070 




JSR 


3127 


015566 


034577 


U7776 


1$: 


.WORD 


3128 


015572 


023400 


000000 


2$: 


.WORD 


3129 


015576 


051377 


^77776 


3$: 


.WORD 


3130 


015602 


000017 




4$: 


17 


3131 


015604 


000000 




5$: 


0 


3132 


015606 


003400 


003400 


.WORD 


3133 


015612 


104023 




6$.- 


ERROR 


31 34 












3135 












3136 








;DJVF 


TEST. 


3137 


015614 






CCC8: 




015614 


104413 






LPERR 


3138 


015616 


004737 


016070 




JSR 


3139 


015622 


067652 


125252 


1$: 


.WORD 


3K0 


015626 


056500 


000000 


2$: 


.WORD 


3U1 


015632 


051343 


107070 


3$: 


.WORD 


3K2 


015636 


000000 




4$: 


0 


3U3 


015640 


000000 


107070 


5$: 


0 


3U4 


015642 


051543 


.UORD 


3U5 


015646 


104026 




6$: 


ERROR 


3U6 












3U7 












3U8 








;DIVF 


WITH AC 


3U9 


015650 






CCC9; 




015650 


104413 






LPERR 


3150 


015652 


004737 


016070 




JSR 



PC-DIVFSUB 
^177.^77777 
12300.0 
40252.125252 



-1.-1 
♦25 



PC. DIVF SUB 
64600.1 
66600.0 
36200.1 



3000.3000 
♦23 



PC.DIVFSU8 
34^77.177776 
23400.0 
51377.177776 



3400.3400 
♦23 



PC.DIVFSU8 
67652.125252 
56500.0 
51343.107070 



51543.107070 
♦26 



PC.DIVFSUB 



.-ERROR RES. 



;SET UP THE LOOP ON ERROR ADDRESS. 
AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

.FSRC 

*RES 

•FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ERROR RES. 



; SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

;RES 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
; ERROR RES. 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

.FSRC 
•RES 

!fpS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
'ERROR RES 

•DIDN'T INCREMENT THE EXPONENT 
.AFTER DIVID NORMALIZATION. 



:SET UP THE LOOP ON ERROR ADDRESS. 
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SEQUENCF 63 



3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 

3161 
3162 
3163 
3164 
3165 
3166 
3167 
316fl 
3169 
3170 
3171 

3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3183 

3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
5192 
3193 
3194 

3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 



015656 
015662 
015666 
015672 
01 5674 
015676 
015702 



015704 
015704 
015706 
015712 
015716 
015722 
015726 
015730 
015732 
015736 



015740 
015740 
015742 
015746 
015752 
015756 
015762 
01 5764 
015766 
015772 



015774 
015774 
015776 
016002 
016006 
016012 
016016 
016020 
016022 
016026 



016030 
016030 
016032 
016036 
016042 
016046 
016052 
016054 
016056 
016062 



140400 
140500 
040052 
000000 
000000 
140052 
104027 



104413 
004737 
160077 
040277 
160000 
000007 
000010 
060000 
104027 



104413 
004737 
040400 
140500 
140052 
000017 
000010 
040052 
104027 



104413 
004737 
060100 
040300 
060000 
000052 
000040 
060000 
104030 



104413 
004737 
060100 
040300 
060000 
000005 
000000 
060000 
104031 



000000 
000000 
125253 



125253 



016070 
000000 
000000 
000000 



000000 



016070 
000000 
000000 
125253 



125253 



016070 
000001 
000000 
000000 



000001 



016070 
000001 
000000 
000001 



000000 



1$: 
2f: 
3$: 
4S: 

5$: 
6S: 

;DIVF 
CCC10 



IS: 
2S: 
3S: 
4S: 

5$: 
6S: 

;DIVF 
CCC11 



IS: 
2f: 
3$: 
4S: 

5S: 
6S: 



;TEST 
CCC12 



IS: 
2S: 
3S: 
4$: 

5S: 
6S: 

;OJVF 
CCC13 



1S: 
2S: 
3S: 
4S: 

5S: 
6S: 



.WORD 
.WORD 
.WORD 

0 
0 

.WORD 
ERROR 



140400.0 
140500.0 
040052,125253 



140052.125253 
+27 



AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
BAD SIGN. 



WITH AC NEGATIVE AND FSRC POSITIVE. 



LPERR 

JSR 

.UORD 

.WORD 

.WORD 

7 

10 

.UORD 
ERROR 



PC.DIVFSUB 
166077.0 
40277.0 
160000,0 



60000,0 
♦27 



.-SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

.FSRC 

*RES 

•FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
; ERROR RES. 
;BAD SIGN. 



WITH AC POSITIVE AND FSRC NEGATIVE. 



LPERR 

JSR 

.UORD 

.UORD 

.UORD 

17 

10 

.UORD 
ERROR 



PC, DIVF SUB 
40400.0 
140506.0 
140052,125253 



40052.125253 
♦27 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

'RES 

}fPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
; ERROR RES. 
:BAD SIGN. 



DIVF BOTH OPERANDS POSITIVE AND TRUNCATE MODE. 



LPERR 

JSR 

.UORD 

.UORD 

.UORD 

52 

40 

.UORD 
ERROR 



PC-DIVFSUe 
60100.1 
4030C.0 
60000,0 



60000,1 
♦30 



SET UP THE LOUP ON ERROR ADDRESS. 
AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
TRUNCATION ERROR 



UITH POSITIVE OPERANDS AND ROUND MODE. 



LPERR 

JSR 

.UORD 

.UORD 

.UORD 

5 

0 

.UORD 
ERROR 



PC, DIVF SUB 
60l00,1 
40300,0 
60000,1 



60000,0 
♦31 



SET UP THE LOOP ON ERROR ADDRESS. 
AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
ROUND ERROR. 
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SEQUENCE 64 



3204 016064 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

32U 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 016070 

3233 0 1 6072 

3234 016076 

3235 016100 

3236 016102 

3237 016104 

3238 016110 

3239 016112 

3240 016120 

3241 016122 
3242 

3243 016126 
3244 

3245 016130 

3246 016132 

3247 016136 
3248 

3249 016140 

3250 016144 
5251 

3252 016146 

3253 016150 

3254 016154 

5255 016160 

5256 016164 

3257 016170 

3258 016174 

5259 016202 

5260 016206 



000137 016314 



CCCOONE ;G0 TO NEXT TEST, 



THIS SUBROUTINE, DIVFSUB, IS CALLED TO SET UP, EXECUTE 

AND CHECK THE RESULT OF A DIVF INSTRUCTION. IT IS CALLED THUS: 



JSR 

ACAR6: .WORD 
FSRCARG:.WORD 
RES: .WORD 
FPS8: .WORD 
FPSA: .WORD 
ERRES: .WORD 
ERR: ERROR 
CONT: 



PCDivrsue 

X,X 
X,X 

x,x 

X 
X 

x,x 

♦X 



:AC OPERAND 
;FSRC OPERAND 
.•EXPECTED RESULT 
;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.ERROR RESULT 
.RESULT ERROR 
.RETURN ADDRESS 



THE oPt^^HOS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
FPS6 IS LOADED INTO THE FPS. THE INSTRUCTION, DIVF IS EXECUTED. 
AFTER THE EXECUTION THE RESULT IS CHECKED AuAlNST THE 
EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
IS CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
IS COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
THE INCORRECT RESULT HATCHED ERRES THEN CONTROL IS PASSED TO 
THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT HATCH ERRES 
THEN THE FAILURE IS REPORTED IN DIVFSUB AND CONTROL IS PASSED TO 
CONT. If NO ERRORS ARE DETECTED THEN DIVFSUB RETURNS CONTROL 
TO CONT. 



012601 






DIVFSUB: 


012700 


000200 




MOV 


170100 






LDFPS 


010100 






nov 


172410 






LDD 


016100 


000014 




nov 


170100 






LDFPS 


012737 


016126 


001236 


nov 


010100 






NOV 


062700 


000004 




ADD 


174410 






1$: OIVF 


170204 






STFPS 


012700 


000200 




nov 


170100 






LDFPS 


012700 


016304 




nov 


174010 






STD 


010102 






nov 


010237 


001 24C 




nov 


062702 


000004 




ADD 


010237 


001242 




nov 


062702 


000004 




ADD 


010237 


001244 




nov 


012737 


016304 


001^46 


nov 


010437 


001250 


OOK'52 


nov 


016137 


000016 


nov 



nov (SP)*,Ri 

#200, RO 

RO 

R1.R0 
(RO),ACO 
14(R1),R0 
RO 

#l$.$TnP2 

R1,R0 
»4,R0 

(RO),ACO 



;6ET A POINTER TO THE ARGUMENTS. 
SET FD nODE. 

LOAD THE AC OPERAND. 

LOAD THE FPS 



R4 

#200, RO 
RO 

fDIVFT.RO 
ACO,(RO) 

R1,R2 , 

R2,$TnP3 

#4,R2 

R2,$TnP4 

*4,R2 

R2,$TnP5 

*DIVFT,$TnP6 

R4,$TnP7 

16(Rl).tTnP.O 



.-ESTABLISH A POINTER TO FSRC. 

.-TEST INSTRUCTION. 

;6ET THE FPS. 
.'SET FD nODE 

.-GET THE RESULT OF THE DIVF. 
.SAVE THE DATA IN CASE OF ERROR. 
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SEQUENCE 65 



3261 

3262 0162U 

3263 016220 

3264 016222 

3265 016230 
32f6 

3267 016232 

3268 016236 

3269 016240 
3270 

3271 016244 

3272 016250 

3273 0162S2 

3274 016260 
3275 

3276 016262 
3277 

3278 016264 

3279 016270 
3280 

3281 016272 

3282 016272 

3283 016274 
3284 

3285 016300 

3286 016300 

3287 016302 
3288 

3289 016304 
3290 

3291 016314 
016314 



3292 
3293 
3300 



021061 
001011 
026061 
001005 

026104 
001020 
000161 

021061 
001010 
026061 
001004 

010102 

062702 
000112 



104023 
0001 



104032 
000774 



000010 
000002 

000016 
000026 
000020 
000002 

000024 

000026 



000012 



10$: 



000022 



000000 000000 000000 



104412 



11$ 
12$ 
13$ 

15$: 
16$: 



DIVFT: 
CCCDONE 



CMP 
BNE 
C«P 
BNE 

C«P 
BNE 
J«P 

CMP 
BNE 
CMP 
BNE 

nov 

ADD 
JHP 



ERROR 
J«P 



BR 

.WORD 
RSETUP 



(RO) J0(R1) 
10$ 

2(R0),12(R1} 
10$ 

10(R1},R4 
15$ 

26(R1) 

(R0).20(R1) 
11$ 

2(R0).22(R1) 
11$ 

R1.R2 

#24,R2 
(R25 



♦23 
26(R1} 



♦32 
13$ 

0,0,0,0 



;IS THE RESULT CORRECT? 
;iP INCORRECT BRANCH. 



;IS FPS CORRECT? 

:IP INCORRECT BRANCH. 

:IP NO ERRORS OCCURRED RETURN. 

;D0ES THE INCORRECT RESULT 

.-MATCH THE ANTICIPATED INCORRECT RESULT. 

.•BRANCH IP NO. 

;IT MATCHED SO RETURN TO THE ERROR 
.•REPORT AT THE CALLING ROUTINE. 



.•REPORT RESULT INCORRECT. 



.•REPORT PPS INCORRECT. 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
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SEQUENCE 66 



016316 

3302 
3303 

3304 016320 
016320 

3305 016322 

3306 016326 

3307 016336 

3308 016346 

3309 016356 

3310 016360 

3311 016362 

3312 016372 
3313 

33U 

3315 016374 
016374 

3316 016376 

3317 016402 

3318 016412 

3319 016422 

3320 016432 

3321 016434 

3322 01 6436 

3323 016446 
3324 

3325 

3326 016450 
016450 

3327 016452 

3328 016456 

3329 016466 

3330 016476 

3331 016506 

3332 016510 

3333 016512 
333a 016522 
3335 

3336 

3337 016524 
016524 

3338 016526 

3339 016532 

3340 016542 

3341 016552 

3342 016562 

3343 016564 

3344 016566 

3345 016576 



000004 



104413 
004737 
034277 
040277 
034200 
000200 
000200 
M7777 
104033 



104413 
004737 
134277 
040277 
134200 
000207 
000210 
\77777 
104033 



104413 
004737 
134300 
140300 
034200 
000250 
000240 
034200 
104035 



104413 
004737 
034300 
140300 
134200 
0002C7 
000210 
134200 
104036 



017010 
000000 
000000 
000000 



000000 
000000 
000000 



y77777 y77777 



017010 
000000 
000000 
000000 



000000 
000000 
000000 



y77777 )77777 



Ol/'OlO 
000000 
000000 
000000 



000000 
000000 
000000 



000000 000000 



017010 
000000 
000000 
000000 



000000 
000000 
000000 



.S8TTL TEST • 7 - OIVD TEST 
DIVD TEST 



.••TEST 7 

••THIS IS A TEST OF THE DIVD INSTRUCTION. NOTE THAT A SUBROUTISE IS 

.-•USED TO SET UP THE OPERANDS. EXECUTE THE INSTRUCTION AND CHECK THE RESULTS. 

;• 

tST7: SCOPE 

;DIVD TEST WITH POSITIVE OPERANDS AND IN ROUND MODE. 
DDD1: 



1$: 
2$: 
3S: 
4$: 

5t: 
6f: 



LPERR 
JSR 
.WORD 
.WORD 
.WORD 
200 
200 
.WORD 
ERROR 



f'C.DIVDSUB 
34^77.0,0,0 
40277.0,0.0 
3*200.0.0.0 



;SET UP THE LOOP ON ERROR ADDRESS. 



AC 

FSRC 
RE** 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 



:DIVD WITH AC NEGATIVE AND FSRC POSITIVE IN TRUNCATE MODE. 
DDD2: 



1$: 
2$: 
3S: 
4S: 

5$: 
6S: 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

207 

210 

.WORD 

ERROR 



PC.DIVDSUB 
13^277.0.0.0 
40277.0.6.0 
134200,0.0.0 



;SET UP THE LOOP ON ERROR ADDRESS. 



AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RESULT. 



;DIVD TEST WITH OPERANDS BOTH NEGATIVE AND IN TRUNCATE MODE. 
DDD3: 



IS: 
2$: 
3$: 
4$: 

5$: 
6S: 



LPERR 
JSR 
.WORD 
.WORD 
.WORD 
250 
240 
.WORD 
ERROR 



PC.DIVDSUB 
134300.0,0,1 
140300.0.0.0 
34200,0,0,0 



34200,0.0.1 
♦35 



:SET UP THE LOOP ON ERROR ADDRESS. 

AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
TRUNCATION ERROR. 



:OIVD WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND ^ODE. 
DDD4; 



000000 000000 



II: 
2$: 
3$: 
4$: 

5$: 
6$: 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

207 

210 

.WORD 

ERROR 



PC.DIVDSUB 
34500.0.0.1 
140306.0,0,0 
134200,0.0,1 



134200.0.0.0 
♦36 



.SET UP THE LOOP P ERROR ADDRESS. 
AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
ROUND ERROR. 



[ 



J 
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SEQUENCE 67 



33A6 
53A7 

33A8 316600 
016600 
33A9 016602 

3350 016606 

3351 016616 

3352 016626 

3353 016632 
335A 016636 

3355 0166A0 

3356 0166A2 

3357 016652 
3358 

3359 
3360 

3361 01665A 
01665A 

3362 016656 

3363 016662 
336A 016672 

3365 016702 

3366 016706 

3367 016712 

3368 0167U 

3369 016716 

3370 016726 
3371 

3372 

3373 016730 
016730 
337A 016732 

3375 016736 

3376 0167A2 

3377 0167A6 

3378 016752 

3379 016756 

3380 016766 

3381 016770 

3382 016772 

3383 017002 
3384 

3385 017004 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

^396 

3397 

3398 

3399 



10AA13 
00A737 
100A00 
000500 
1A0052 
125252 
0076A7 
007650 
}77777 
10A033 



10AA13 
00A737 
OOOAOO 
100500 
1A0052 
125252 
007707 
007710 
^77777 
10A033 



10AA13 
00A737 
170360 
170360 
170360 
170360 
0A0200 
007717 
007700 
y77777 
10A033 



;D1VD TEST. 
DDD5: 



017010 
000000 
000000 
125252 
125252 



000000 
000000 



^77777 }7?777 



017010 
170360 
170360 
170360 
170360 
OOC900 



}77777 



000137 017250 



1$: 
2$: 
3$: 

AS: 

5$: 
6$: 



;DIVD 
DDD6 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

76A7 

7650 

.WORD 

ERROR 



PC.DIVDSU8 

io6aoo-0.o.o 
500.0-6.6 

1AC655, 125252 
125252,125252 



.SET UP THE LOOP OM ERROR ADDRESS. 

;AC 

;FSRC 

;RES 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.-ERROR RES. 



TEST WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 









LPERR 


017010 






JSR 


000000 


000000 


1$: 


.WORD 


000000 


000000 


2$: 


.WORD 


125252 




3S: 


.WORD 


125253 






.WORD 




AS: 


7707 








7710 


}77777 


^77777 


5S: 


.WORD 






6S: 


ERROR 



000000 
U7777 



;DIVD 
0D07: 



IS: 

2S: 

3$: 
AS: 

Si: 
6S: 



TEST. 

LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

7717 

7700 

.WORD 

ERROR 

J«P 



PC.DIVDSUB 

A06,0.0.0 

100500,0.0.0 

125252,125253 



PC.DIVDSUB 

176360.170360 

170360,170360 

170360,170360 

170360-170360 

40200,6,0,0 



.-SET UP THE LOOP ON ERROR ADDRESS. 

.AC 

;FSRC 

:RES 

;fPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
; ERROR RES. 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

;RES 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR RES. 



DDODONE :G0 TO NEXT TEST. 



THIS SUBROUTINE, DIVDSUB, IS CALLED TO SET UP, EXECUTE 

AND CHECK THE RESULT OF A DIVD INSTRUCTION. IT IS CALLED THUS: 



JSR 

ACARG: .WORD 
FSRCARG:.WORD 
RES: .WORD 



FPSB: 

FPSA: 

ERRES: 

ERR: 

CONT: 



.WORD 
.WORD 
.WORD 
ERROR 



PC.DIVDSUB 
X ^ X ^ X # X 
X # X ^ X #x 
X # X # X # X 
X 
X 

X # X # X ^ X 
♦ X 



AC OPERAND 
FSRC OPERAND 
EXPECTED RESULT 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
ERROR RESULT 
RESULT ERROR 
RETURN ADDRESS 



CKFP8C0 FP11F FLT6 PNT PRT B 
TEST # 7 - DIVD TEST 

3400 
3401 
3402 
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?84 



SEQUENCE 



THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
FPS8 IS LOADED INTO THE ^PS. THE INSTRUCTION, DIVD IS EXECUTED. 



0170A6 17A410 



CKfPBCO FPIIF FLTG PNT PRT B 
TEST # 7 - DIVD TEST 



340A 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 

3415 017010 012601 

3416 017012 012700 

3417 017016 170100 
3418 

3419 017020 010100 

3420 017022 172410 

3421 017024 016100 

3422 017030 170100 
3423 

3424 017032 012737 

3425 017040 010100 

3426 017042 062700 
3427 
3428 
3429 

3430 017050 170204 

3431 017052 012700 

3432 017056 170100 
5433 

3434 017060 012700 

3435 017064 174010 
3436 

3437 017066 010102 

3438 017070 010237 

3439 017074 062702 

3440 017100 010237 

3441 017104 062702 

3442 017110 010237 

3443 017114 012737 

3444 017122 010437 

3445 017126 016137 
3446 

3447 017134 010102 

3448 017136 062702 

3449 017142 012703 

3450 017146 012705 

3451 017152 022223 

3452 017154 001006 

3453 017156 077503 
3454 

5455 017160 026104 

3456 017164 001023 

3457 017166 000161 
3458 

3459 017172 010102 

3460 017174 062702 



E 6 



000200 



000030 

017046 
000010 



000200 
017240 



001240 
000010 
001242 
000010 
001244 
017240 
001250 
000032 



000020 
017240 
000004 



000032 
000046 

0C0034 
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AFTER THt EXi ruTION THE RESULT IS CHECKED AGAINST THE 
EXPECTED CORRECT RESULT, RES. IF IT IS CORRECT THEN THE FPS 
IS CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
IS COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
THE INCORRECT RESULT BATCHED ERRES THEN CONTROL IS PASSED TO 
THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT NATCH ERRES 
THEN THE FAILURE IS REPORTED IN DIVDSU8 AND CONTROL IS PASSED TO 
CONT. If NO ERRORS ARE DETECTED THEN DJVDSUB RETURNS CONTROL 
TO CONT. 



SEQUENCE 69 



DIVDSUB: 



001236 



1$: 



001246 
001252 



2S: 



10$: 



MOV 

LDFPS 

NOV 

LDD 
NOV 
LDFPS 

NOV 
NOV 
ADD 

DIVD 

STFPS 

NOV 

LDFPS 

NOV 
STD 

NOV 
NOV 
ADD 
NOV 
ADD 
NOV 
NOV 
NOV 
NOV 

NOV 
ADD 
NOV 
NOV 
CNP 
BNE 
SOB 

CMP 
BNE 
JNP 

NOV 
ADD 



NOV (SP}^.R1 .-GET A POINTER TO THE ARGUMENTS. 

#200, RO .SET FD NODE. 

RO 



R1.R0 
(R0},AC0 
30(R1),R0 
RO 

#1$,$TNP2 

R1.R0 
*10,R0 

(RO),ACO 

R4 

#200,R0 
RO 

#DIVDT.RO 
ACO,(RO} 

R1,R2 

R2-$TNP3 

fl6.R2 

R2.$TNP4 

#10-R2 

R2,iTNP5 

#DIVDT,$TNP6 

R4,$TNP7 

32(R1),$THP10 

R1.R2 
#26, R2 
#DIVDT.R3 
#4.R5 

(R2)*.(R3)* 

10$ 

R5,2$ 

32(R1).R4 
15$ 

46(R1} 

Ri,r2 

#34, R2 



:SET UP THE ACO OPERAND. 
;LOAD THE FPS. 

.•ESTABLISH A POINTER TO FSRC. 

.•EXECUTE THE TEST INSTRUCTION. 

;GET THE FPS. 
.•SET FD NODE. 

;GET THE RESULT. 

.-SAVE DATA IN CASE OF ERROR. 



.•CHECK THE RESULT. 



.-BRANCH IF RESULT INCORRECT. 



;IS FPS CORRECT? 
.-BRANCH IF INCORRECT. 
.•RETURN. 

.-WAS INCORRECT RESULT ANTICIPATED? 



CHFPB:0 fPllf FLTG PNT PRT B 
TESr # 7 - DIVD TEST 



F 6 

MACRO Ml 113 20-0CT-81 08:27 PAGE 19-1 



SEQUENCE 70 



3A61 
3462 
3A63 
3A6A 
3A65 
3A66 
3A67 
3A68 
3A69 
3A70 
5A71 
3A72 
3A73 
3A74 
3475 
34 76 
34 7 7 
3478 
3479 
3480 
3481 



3482 
3483 
3491 



017200 
017204 
017210 
017212 
017214 
017216 
017220 



017226 
017226 
017230 

017234 
017234 
017236 

017240 

017250 
017250 



012703 
012705 
022223 
001005 
077503 
010102 
062702 



017224 000112 



104033 
000161 



104034 
000774 

000000 
104412 



017240 
000004 



000044 



000046 



IIS: 



000000 000000 



12$ 
13$ 
14$ 

15$: 
16$: 



DIVDT: 
DDODONE 



NOV 
NOV 
CNP 
BNE 
SOB 
NOV 
ADD 

JNP 



ERROR 
JNP 



ERROR 
BR 

.WORD 

'rsetup 



♦DIVDT, R3 
#4.R5 

(R2)*.(R3)* 
12$ 

R5,11$ 
R1,R2 
#44, R2 

(R2) 



♦33 

46(R1) 



♦34 
14$ 

0,0,0,0 



: BRANCH IF NO. 

;JF THE INCORRECT RESULT WAS 
.-ANTICIPATED RETURN TO THE 
; ERROR REPORT IN THE CALLING 
.•ROUTINE. 

.•REPORT RESULT INCORRECT. 



.•REPORT EPS INCORRECT. 



60 INITIALIZE THE EPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTVARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFP8C0 FP11F FLT6 PNT PRT B 
TEST # 10 - PWLF TEST 

3A92 



3^93 
3494 
3495 

3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 

3507 
3508 
3509 
3510 
3511 
3512 
3513 
3514 
3515 
3516 
3517 

3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 

3529 
3530 
3531 
3532 
3533 
3534 
3535 



017252 000004 



017254 
017254 
017256 
017262 
01 7266 
017272 
017276 
017300 
017302 
017306 



017310 
017310 
017312 
017316 
017322 
017326 
017332 
017334 
017336 
01 7342 



017344 
017344 
017346 
017352 
017356 
017362 
017366 
017370 
017372 
017376 



017400 
01 7400 
017402 
017406 
017412 
017416 
017422 
017424 
017426 



104413 
004737 
000000 
000000 
000000 
007517 
007504 
-[77777 
104037 



104413 
004737 
071625 
000000 
000000 
000013 
000004 
}77777 
104037 



104413 
004737 
000000 
071625 
000000 
007500 
007504 
\77777 
104037 



104413 
004737 
040200 
040177 
040177 
000017 
000000 
140177 



020034 
000000 
000000 
000000 



\77777 



020034 
034435 
000000 
000000 



^77777 



020034 
000000 
153443 
000000 



y77777 



020034 
000000 
\77777 
^77777 



yn777 
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.S8TTL TEST # 10 - WLF TEST 



SEQUENCE 



71 



.••TEST 10 HULF TEST 

;*THIS IS A TEST OF THE «ULF INSTRUCTION. IT HAKES USE OF A SUBROUTINE 
;*T0 SET UP THE OPERANDS, EXECUTE THE NULF INSTRUCTION AND CHECK THE 
.••RESULTS. 
;* 

***************************************************************** 

tSTlO: SCOPE 



;«ULF 
EEE1: 



1$: 
2$: 
3$: 
4$: 

5$: 
6S: 

;«ULF 
EEE2: 



IS: 
2$: 
3$: 
4S: 

5$: 
6S: 

;«ULF 
EEE3: 



1$: 
2S: 
3$: 
4S: 

5S: 
6S: 

;HULF 
EEE4: 



1$: 
2$: 
3S: 
4$: 

5S: 



WITH (FSRC=AC=0) 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

7517 

7504 

.WORD 

ERROR 



PC-MULFSUB 

0.6 

0.0 

0.0 



-1,-1 
♦3^ 



yiTH (FSRC=0). 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

13 

4 

.WORD 
ERROR 



PC,«ULFSUB 

71625.34435 

0,0 

0.0 



-1.-1 
♦3? 



WITH (AC=0) 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

7500 

7504 

.WORD 

ERROR 



PC-FWLFSU8 
0.6 

0^625.153443 
0.0 



-1.-1 
♦3? 



.-SET UP THE LOOP ON ERROR ADDRESS. 
;AC 

;FSRC 
;RES 

;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 



.-SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

'RES 

:FPS BEFORE EXECUTION. 
.-FPS AFTER EXECUTION. 
.•ERROR RES. 



.-SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

*RES 

•FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ERROR RES. 



WITH AC POSITIVE AND FSRC POSITIVE IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 



LPERR 
JSR 
.WORD 
.WORD 
.WORD 
17 
0 

.WORD 



PC-MULFSUB 
40200,0 
40177.-1 
40177.-1 



140177.-1 



;AC 
;FSRC 
RES 

•FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.ERROR RES. 



CKFPBCO FPIIF FLTG PNT PRT B 
TEST # 10 - HULF TEST 



H 6 
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SEQUENCE 71 



3536 017432 

3537 

3538 

3539 017A34 
01 7A34 

3540 017436 

3541 017442 

3542 017446 

3543 017452 

3544 017456 

3545 017460 

3546 017462 

3547 017466 
3548 

3549 
3550 

3551 017470 
017470 

3552 017472 

3553 017476 

3554 017502 

3555 017506 

3556 017512 

3557 017514 

3558 017516 

3559 017522 
3560 

3561 
3562 

3563 017524 
017524 

3564 017526 

3565 017532 

3566 017536 

3567 017542 

3568 017546 

3569 017550 

3570 017552 

3571 017556 
3572 

3573 

3574 017560 
017560 

3575 017562 

3576 017566 

3577 017572 

3578 017576 

3579 017602 

3580 017604 

3581 017606 

3582 017612 
3583 

3584 

3585 017614 
017614 

3586 017616 

3587 017622 



104041 



104413 
004737 
040177 
040200 
040177 
000040 
000040 
037777 
104042 



104413 
004737 
040100 
040100 
040020 
000012 
000000 
042040 
104043 



104413 
004737 
017500 
023652 
003177 
007417 
007400 

Mim 

104037 



104413 
004737 
040342 
176542 
176707 
000007 
000010 
076507 
104041 



104413 
004737 
140200 



020034 
y77777 
000000 
}77777 



m777 



020034 
000000 
000000 
000000 



000000 



020034 
000000 
125252 
y77777 



\77777 



020034 
000000 
000000 
102000 



102000 



020034 
000000 



6S: 

;MULF 
EEE5: 



ERROR ^41 ;8AD SIGN. 

WITH AC POSITIVE AND FSRC POSITIVE IN TRUNCATE MODE. 





LPERR 




JSR 


IS: 


.UORD 


2$: 


.UORD 


3$: 


.WORD 


4$: 


40 




40 


5$: 


.UORD 


6$: 


ERROR 



PC.MULFSUB 
40l77,-l 
40200,0 
40177.-1 



37777.-1 
♦42 



;SET UP THE LOOP ON ERROR ADDRESS. 

AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES 

ST 252 TO* 044 INTO 444 (BUT Y62) 
MUL. NORMALIZATION FAILURE. 



;MULF 
EEE6: 



1$ 
2S 
3S 
4$ 



WITH BOTH OPERANDS POSITIVE NORMALIZE TEST. 

;SET UP THE LOOP ON ERROR ADDRESS. 



5$: 
6S: 



;MULF 
EEE7: 



1$ 
2$ 
3$ 
4S 

5$: 
6$: 



;MULF 
EEE8: 



1$ 
2$ 
3$ 
4S 

7$: 
6S: 



;MULF 
EEE9: 



IS: 



LPERR 
JSR 
.UORD 
.UORD 
.UORD 
12 
0 

.UORD 
ERROR 



PC.MULFSUB 
40100.0 
40100.0 
40020.0 



42040.0 
♦43 



AC 

FSRC 

RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES 

ST 252 TO '444 INTO 042 (BUT Y62) 
MUL. NORMALIZATION FAILURE. 



UITH BOTH OPERANDS POSITIVE IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 



LPERR 
JSR 
.UORD 
.UORD 
.UORD 
7417 
7400 
.UORD 
ERROR 



PC.MULFSUB 
17500.0 
23652.125252 
3177.-1 



-1.-1 
♦3^ 



AC 

FSRC 

RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 



UITH AC POSITIVE AND FSRC NEGATIVE IN ROUND MODE. 

;SET UP THE LOOP ON ERROR ADDRESS. 



LPERR 
JSR 
.UORD 
.UORD 
.UORD 
7 

10 

.UORD 
ERROR 



PC.MULFSUB 
40542-0 
17654^.0 
176707.102000 



76507,102000 
♦41 



;AC 

.FSRC 

'RES 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.•ERROR RES. 
;BAD SIGN. 



UITH AC NEGATIVE AND FSRC POSITIVE IN ROUND MODE. 

.-SET UP THE LOOP ON ERROR ADDRESS. 
;AC 



LPERR 

JSR 

.UORD 



PC.MULFSUB 
146200,0 



CKFPBCO FP11F FLTG PNT PRT B 
TEST # 10 - HULF TEST 
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SEQUENCE 71 



3588 
3589 
3590 
3591 
3592 
3593 
359A 
3595 
3596 

3597 
3598 
3599 
3600 
3601 
3602 
3603 
360A 
3605 
3606 
3607 

3608 
3609 
3610 
3611 
3612 
3613 
361A 
3615 
3616 
3617 
3618 

3619 
3620 
3621 
3622 
3623 
362A 
3625 
3626 
3627 
3628 
3629 



017626 
017632 
01 7636 
0176A0 
0176A2 
017646 



017650 
017650 
017652 
017656 
017662 
017666 
017672 
01767A 
017676 
017702 



01770A 
01770A 
017706 
017712 
017716 
017722 
017726 
017730 
017732 
017736 



0177A0 
0177<0 
0177A2 
0177A6 
017752 
017756 
017762 
01776A 
017766 
017772 



007A17 
107A17 
000000 
000010 
007A17 
10A0A1 



10AAI3 
00A737 
1AA600 
15A000 
060A00 
000017 
000000 
160A00 
10A0A1 



10AA13 
00A737 
1A0300 
160000 
060100 
000010 
000000 
060100 
10A0AA 



10AA13 
00A737 
060000 
1A0300 
160100 
0075A7 
007550 
160100 
10A0A5 



01777A 

01777A 10AA13 

3630 017776 00A737 

3631 020002 0A0277 

3632 020006 060000 

3633 020012 060077 
363A 020016 00001A 

3635 020020 000000 

3636 020022 060077 

3637 020026 10A0AA 
3638 

3639 020030 000137 
3640 



007A17 
007A17 



007A17 



02003A 
000000 
000000 
000000 



000000 



02003A 
000000 
000001 
000002 



000001 



02003A 
000001 
000000 
000001 



000001 



02003A 
000000 
000001 
000001 



000002 
020260 



2$: 
3$: 
AS: 

5S: 
6S: 

;HULF 
EEE10 



1S: 
2S: 
3S: 
AS: 

5S: 

es: 

;HULF 
EEE11 



1$: 
2S: 
3$: 
AS: 

5S: 
6S: 

;«ULF 
EEE12 



IS: 
2S: 
3S: 
AS: 

5S: 
6S: 

;«ULF 
EEE13 



IS: 
2S: 
3S: 
AS: 

5S: 
6S: 



.WORD 
.WORD 

0 
10 

.UORD 
ERROR 



7A17,7A17 
107A17.7A17 



7A17.7A17 
♦Al 



FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
BAD SIGN. 



UI TH BOTH OPERANDS NEGATIVE IN ROUND MODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 



LPERR 
JSR 
.WORD 
.WORD 
.WORD 
17 
0 

.WORD 
ERROR 



PC.MULFSUB 
1AA600.0 
15AOO0.O 
60A00,6 



160A00,0 
♦Al 



AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
BAD SIGN. 



BOTH OPERANDS NEGATIVE IN ROUND NODE. 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

10 

0 

.WORD 
ERROR 



PC.MULFSUB 
1a6300,0 
160000.1 
601 00 J 



60100,1 
>AA 



:SET UP THE LOOP ON ERROR ADDRESS. 



AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
ROUND FAILURE. 



WITH AC POSITIVE AND FSRC NEGATIVE IN TRUNCATE NODE. 

.-SET UP THE LOOP ON ERROR ADDRESS. 



LPERR 
JSR 
.WORD 
.WORD 
.WORD 
75A7 
7550 
.UORD 
ERROR 



PC.NULFSU8 
60000.1 
1A0306.0 
160100,1 



160100,1 
♦AS 



AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES. 
TRUNCATION ERROR. 



WITH AC POSITIVE AND FSRC POSITIVE IN ROUND NODE. 

;SET UP THE LOOP ON ERROR ADDRESS. 



LPERR 
JSR 
.WORD 
.UORD 
.UORD 
1A 
0 

.UORD 
ERROR 

JNP 



PC,«ULFSUB 
A0577.0 
60000,1 
60077,1 



60077,2 
i-AA 

EEEDONE 



AC 

FSRC 
RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
ERROR RES 

ROUND FAILURE. CONSTANT BAD. 
:G0 TO THE NEXT TEST. 



CKFPBCO FPIIF FLTG PNT PRT B 
TEST # 10 - HULF TEST 

3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 

3667 020034 012601 

3668 020036 012700 000200 

3669 020042 170100 

3670 020044 010100 

3671 020046 172410 

3672 020050 016100 000014 

3673 020054 170100 

3674 020056 012737 020072 

3675 020064 010100 

3676 020066 062700 000004 
3677 

3678 020072 171010 
3679 

3680 020074 170204 

3681 020076 012700 000200 

3682 020102 170100 
3683 

3684 020104 012700 020250 

3685 020110 174010 
3686 

3687 020112 010102 

3688 020114 010237 001240 

3689 020120 062702 000004 

3690 020124 010237 001242 

3691 020130 062702 000004 

3692 020134 010237 001244 

3693 020140 012737 020250 

3694 020146 010437 001250 
" 020152 016137 000016 



-I 
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THIS SUBROUTINE. MULFSUB. IS CALLED TO SET UP, EXECUTE 

AND CHECK THE RESULT OF A «ULF INSTRUCTION. IT IS CALLED THUS: 



SEQUENCE lU 



JSR 

ACARG: .WORD 
FSRCARGz.yORD 
RES: .WORD 



FPSe: 

FPSA: 

ERRES: 

ERR: 

CONT: 



.WORD 
.WORD 
.WORD 
ERROR 



PC,«ULFSU8 

X,X 

X,X 

X,X 

X 

X 

X,X 
♦X 



:AC OPERAND 
;FSRC OPERAND 
.•EXPECTED RESULT 
;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.•ERROR RESULT 
.-RESULT ERROR 
.•RETURN ADDRESS 



THE OPERANDS ARE SET UP (USING ACO FOR THE AC OPERAND). THEN 
FPS6 IS LOADED INTO THE FPS. THE INSTRUCTION. HULF IS EXECUTED. 
AFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
EXPECTED CORRECT' IIESULT. RES. IF IT IS CORRECT THEN THE FPS 
IS CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT »T 
IS COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
THE INCORRECT RESULT HATCHED ERRES THEN CONTROL IS PASSED TO 
THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT HATCH ERRES 
THEN THE FAILURE IS REPORTED IN HULFSUB AND CONTROL IS PASSED TO 
CONT. IF NO ERRORS ARE DETECTED THEN MULFSUB RETURNS CONTROL 
TO CONT. 



001236 



HULFSU8: HOV <SP)*,R1 

nov #200. RO 

LDFPS RU 

HOV R1 .RO 

LDD (RO).ACO 

nov 14(R1}.R0 

LDFPS RO 

HOV /H$.$THP2 

NOV R1.R0 

ADD /r4.R0 



;GET A POINTER TO THE ARGUMENTS. 
SET FD MODE. 

LOAD THE AC OPERAND. 

LOAD THE FPS 



3695 
3696 
3697 020160 



001246 
001252 



021061 000010 



1$: MULF (RO).ACO 
R4 

MOV #200. RO 

LDFPS RO 

MOV #MULFT.RO 

STD ACO.(RO} 

MOV R1.R2 

MOV R2.STMP3 

ADD #4.R2 

MOV R2.$TMP4 

ADD #4.R2 

MOV R2,STMP5 

MOV #MULFT,$TMP6 

MOV R4.$TMP7 

MOV 16(R1),$TMP10 

CMP (R0),10(R1) 



.•ESTABLISH A POINTER TO FSRC. 

.'TEST INSTRUCTION. 

;GET THE FPS. 
.-SET FD MODE 

.-GET THE RESULT OF THE MULF. 
.-SAVE THE DATA IN CASE OF ERROR. 



;IS THE RESULT CORRECT? 
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SEQUENCE 75 



3698 020164 

3699 020166 

3700 020174 
3701 

3702 020176 

3703 020202 

3704 020204 
3705 

3706 020210 

3707 020214 

3708 020216 

3709 020224 
3710 

3711 020226 
3712 

3713 020230 

3714 020234 
3715 

3716 020236 

3717 020236 

3718 020240 
3719 

3720 020244 

3721 020244 

3722 020246 
3723 

3724 020250 
3725 

3726 020260 
020260 



3727 
3728 
3736 



001011 
026061 
001005 

026104 
001020 
000161 

021061 
001010 
026061 
001004 

010102 



000002 000012 

000016 
000026 
000020 

000002 000022 



10$: 



062702 000024 
000112 



104037 

000161 000026 



104040 
000774 

000000 000000 000000 



104412 



11$ 
12$ 
13$ 

15$: 
16$: 



HULFT: 
EEEDUNE 



BNE 
CHP 
BNE 

CMP 
BNE 
JMP 

CMP 
BNE 
CMP 
BNE 

MOV 

ADD 
JMP 



ERROR 
JMP 



ERROR 
BR 

.WORD 
RSETUP 



10$ 

2(R0).12(R1) 
10$ 

16(R1),R4 
15$ 

26(R1) 

(R0),20(R1) 
11$ 

2(R0).22(R1) 
11$ 

R1.R2 

#24, R2 

(R2) 



♦37 

26(R1) 



♦40 
13$ 

0,0.0,0 



;IF INCORRECT BRANCH. 



;IS FPS CORRECT? 

;If INCORRECT BRANCH. 

;IF NO ERRORS OCCURRED RETURN. 

;D0ES THE INCORRECT RESULT 

.'MATCH THE ANTICIPATED INCORRECT RESULT. 

.•BRANCH IF NO. 

;IT MATCHED SO RETURN TO THE ERROR 
.•REPORT AT THE CALLING ROUTINE. 



.•REPORT RESULT INCORRECT. 



.•REPORT FPS INCORRECT. 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 
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SEQUENCE 76 



.S8TTL TEST # 11 - HULD TEST 



;»TEST 11 



HULD TEST 



;*THIS IS A TEST OF THE HULD INSTRUCTION. NOTE THAT A SUBROUTINE IS 
;*USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 
:*CHECK THE RESULTS. 



020262 

3738 
3739 

3740 02026A 
02026A 
37<,1 C 20266 
37A2 020272 
37<,3 020302 
5744 020312 

3745 020322 

3746 020324 

3747 020326 

3748 020336 
3749 

3750 
3751 

3752 020340 
020340 

3753 020342 

3754 020346 

3755 020356 

3756 020366 

3757 020376 

3758 020400 

3759 020402 

3760 020412 
3761 

3762 

3763 020414 
020414 

3764 020416 

3765 020422 

3766 C20432 

3767 020442 

3768 020452 

3769 020454 

3770 020456 

3771 020466 
3772 

3773 

3774 020470 
020470 

3775 020472 

3776 020476 
377? 020506 

3778 020512 

3779 020516 

3780 020526 



000004 



104413 
004737 
040200 
023777 
023777 
000217 
000200 
023777 
104047 



104413 
004737 
065400 
037577 
064777 
000247 
000240 
065000 
104050 



104413 
004737 
137577 
165400 
065000 
007717 
007700 
064777 
104051 



TST11: SCOPE 

TEST WITH AC POSITIVE AND FSRC POSITIVE. 



020550 
COOOOO 
^77777 
U7777 



020550 
000000 
1 77777 
\77777 



020550 
\77777 
000000 
000000 



000000 
\77777 
\77777 



y77777 000000 



000000 
y77777 
\77777 



000000 000000 



\77777 
000000 
000000 



\77777 \77777 



.-nULD 
FFF1: 



1$: 
2$: 
3$: 
4$: 



5$: 
6$: 



;MULD 
FFF2: 



1$: 
2$: 
3$: 
4S: 

5S: 
6S: 

;nULD 
FFF3: 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

217 

200 

.WORD 

ERROR 



PC-HULOSUB 
40200,0-0,0 
23777.-1,-1,-1 
23777.-1.-1.-1 



23777.-1.0.0 
♦47 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

'RES 

•FPS BEFORE EXECUTION. 
;FPS AFTER ECECUTION. 
'ERROR RES. 

i-BAD CONSTANT USED IN ALGORITHM 
.'USED 24 INSTEAD OF 56. 



TEST WITH BOTH OPERANDS POSITIVE TRUNCATION TEST. 

LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

JSR PCnULDSUB 

.WORD 65400,0.0.1 ;AC 

.WORD 37577.-1,-1.-2 ;FSRC 

.WORD 64777,-1.-1.-1 ;RES 

247 ;FPS BEFORE EXECUTION. 

240 ;FPS AFTER EXECUTION. 

.UORD 65000,0.0,0 .ERROR RES. 

ERROR ^50 .-TRUNCATION ERROR. 

TEST WITH BOTH OPERANDS NEGATIVE IN ROUND MODE. 

.-SET UP THE LOOP ON ERROR ADDRESS. 



104413 








LPERR 


004737 


020550 






JSR 


017500 


000000 


000000 


IS: 


.WORD 


123652 


125252 




2S: 


.WORD 


125252 


125252 






.WORD 


103177 


-{77777 


\77777 


3$: 


.WORD 


OOO2C0 






4S: 


200 



LPERR 

JSR PC.nULDSUB 

1$: .WORD 137577.-1.-1,-2 ;AC 

2S: .WORD 165400.0.0.1 -^SRC 

3S: .WORD 65000.0.0.0 .RES 

4S: 7717 ;FPS BEFORE EXECUTION. 

7700 ;FPS AFTER EXECUTION. 

5$: .WORD 64777.-1.-1.-1 .'ERROR RES. 

6S: ERROR ♦SI .ROUND ERROR. 

.'HULD TEST WITH AC POSITIVE AND FSRC NEGATIVE IN ROUND NODE. 
FFF4' 

.'SET UP THE LOOP ON ERROR ADDRESS. 

PC.«ULDSUB 
17^00.0.0,0 ;AC 
12365J,l2§252 .FSRC 
125252.125252 
103177.-1.-1.-1 ;RES 

;FPS BEFORE EXECUTION. 
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5781 
3782 
3783 
378A 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
38K 
3815 
3816 
3817 



020530 
020532 
0205A2 



020550 
020552 
020556 



020560 

3818 020562 

3819 020564 
020570 



3820 
3821 
3822 
3823 
3824 
3825 
3826 
5827 
3828 
5829 



020572 
020600 
020602 



020610 
020612 
5830 020616 
5831 

020620 
020624 



3832 
5833 
3854 
5835 
5836 
5857 



020626 
020650 
020654 



000210 
103200 
104052 



012601 
012700 
170100 

010100 
172410 
016100 
170100 

012737 
010100 
062700 



020606 171010 



170204 
012700 
170100 

012700 
174010 

010102 
010237 
062702 



000000 



000000 5S: 
6$: 



020544 000137 021010 



000200 



000030 

020606 
000010 



000200 
021000 



001240 
000010 



001236 



210 

.WORD 103200,0,0.0 
ERROR ^52 



;FPS AFTER EXECUTIOW. 
.ERROR RES. 

.•ROUND ERROR (BAD CONSTAMT), 



FFFDONE 



THIS SUBROUTINE. MULOSUB, IS CALLED TO SET UP, EXECUTE 

AND CHECK THE RESULT OF A HULD INSTRUCTION. IT IS CALLED THUS: 



JSR 

ACAR6: .WORD 
F SRC ARC .-.WORD 
RES: .WORD 
FPSB- .WORD 
FPSA: .WORD 
ERRES: .WORD 
ERR: ERROR 
CONT: 



PCRULDSUB 
X f X f X # X 
X # X ^ X ^ X 
X ^ X # X f X 
X 
X 

X ^ X # X f X 
♦X 



;AC OPERAND 
;FSRC OPERAND 
.•EXPECTED RESULT 
;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.•ERROR RESULT 
.•RESULT ERROR 
•.RclsJRfi ADDRESS 



THE OPERANDS ARE SET UP (USING ACO FOR THE AC Of»E«ANO\ THEN 
FPSB IS LOADED INTO THE FPS. THE INSTRUCTION, MULD IS EXECUTED. 
AFTER THE EXECUTION THE RESULT IS CHECKED AGAINST THE 
EXPECTED CORRECT RESULT. RES. IF IT IS CORRECT THEN THE FPS 
IS CHECKED WITH THE EXPECTED CORRECT FPS, FPSA. IF THE FPS WAS 
INCORRECT THEN IT IS REPORTED. IF THE RESULT WAS INCORRECT IT 
IS COMPARED WITH ERRES IN AN ATTEMPT TO ANALYSE THE ERROR. IF 
THE INCORRECT RESULT HATCHED ERRES THEN CONTROL IS PASSED TO 
THE ERROR CALL AT ERR. IF THE INCORRECT RESULT DID NOT NATCH ERRES 
THEN THE FAILURE IS REPORTED IN MULDSUB AND CONTROL IS PASSED TO 
CONT. IF NO ERRORS ARE DETECTED THEN HULDSUB RETURNS CONTROL 
TO CONT. 



nULDSUB: 



MOV 
LDFPS 

NOV 
LDD 
NOV 
LDFPS 

NOV 
NOV 
ADD 



NOV (SP)».R1 ;GET A POINTER TO THE ARGUMENTS. 

#200, RO ;SET FD NODE. 

RO 



Rl-RO 
(RO).ACO 
30(R1),R0 
RO 

#1$,$TNP2 
R1.R0 
#10, RO 



1$: 



NULD (RO).ACO 



STFPS 

NOV 

LDFPS 

NOV 
STD 

NOV 
NOV 
ADD 



R4 

#200, RO 
RO 

#NULDT.RO 
AC0,(R0) 

RT,R2 , 
R2.$TNP3 
#10, R2 



:SET UP THE ACO OPERAND. 
;LOAD THE FPS. 

ESTABLISH A POINTER TO FSRC. 

EXECUTE THE TEST INSTRUCTION. 

GET THE FPS. 
SET FD NODE. 

GET THE RESULT. 

SAVE DATA IN CASE OF ERROR. 
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5838 0206A0 
3839 0206A4 
38^0 020650 
38^1 020654 

3842 020662 

3843 020666 
3844 

3845 020674 

3846 020676 

3847 020702 

3848 020706 

5849 020712 

5850 020714 

5851 020716 
5852 

3853 020720 

5854 020724 

5855 020726 
58 56 

5857 020732 

5858 020734 

5859 020740 

5860 020744 

5861 020750 

5862 02075<j 

5863 020754 
3864 020756 
5865 020760 
3866 

3867 020764 
3868 

3869 020766 

3870 020766 

3871 020770 
3872 

3873 020774 

3874 020774 

3875 020776 
3876 

3877 021000 
3878 

3879 021010 
OPIOID 



3880 
3881 
5890 
3891 



N 6 
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SEQUENCE 78 



010P37 


001242 

WW 1 t ^ c 


062702 


000010 


010237 


001244 


012737 


021000 


010437 


001250 


016157 


000032 


010102 




062702 


000020 

W W W W k w 


012703 


021000 


012705 


000004 


022223 




001006 




077503 




026104 


000032 


001023 




00C161 


000046 


010102 




062702 


000034 


012703 


021000 


012705 


000004 


022223 




00 1005 




077503 




010102 




062702 


000044 


000112 




104246 




000161 


000046 


104046 




000774 




000000 


000000 



104412 



0012^6 
001252 



21: 



10S: 



11$: 



12$ 
13$ 
14$ 

1SS: 
16$: 



NOV R2.$T«P4 

ADD #10. R2 

HOV R2.$T«P5 

MOV #HULDT.$THP6 

HOV R4,$T«P7 

MOV 32(R1).$T«P10 

MOV R1-R2 

ADD #20. R2 

MOV #nULDr.R3 

MOV #4.R5 

C«P (R2)*.(R3)* 

BNE 10$ 

SOB R5,2$ 

CHP 52(R1),R4 

BNE 15$ 

JMP 46(R1) 

MOV R1,R2 

ADD #34. R2 

MOV #nULDT.R3 

MOV #4.R5 

CMP (R2)*.(R3)* 

BNE 12$ 

SOB R5.11$ 

MOV Rl .R2 

ADD #44, R2 

JMP (R2) 



ERROR ^246 
JMP 46(R1) 



ERROR >46 
BR 14$ 



000000 MULDT: 

FFFDONE: 



.WORD 0,0,0,0 



; CHECK THE RESULT. 



.•BRANCH IF RESULT INCORRECT. 



;IS FPS CORRECT? 
.BRANCH IF INCORRECT. 
.•RETURN. 

.-WAS INCORRECT RESULT ANTICIPATED? 



.-BRANCH IF NO. 

:IF THE INCORRECT RESULT WAS 
.-ANTICIPATED RETURN TO THE 
.-ERROR REPORT IN THE CALLING 
.-ROUTINE. 

;REPORT RESULT INCORRECT. 



.-REPORT FPS INCORRECT. 



RSETUP ;60 INITIALIZE THE FPS AND STACK; AND 

SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



.TEST TITLE rUNDER/OVERFLOW. USING HULF WITH TRAPS DISABLED 



B 7 
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SEQUENCE ^9 



3892 



3893 
3894 
3895 

3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 

3912 
3913 
39U 
3915 
3916 
3917 
3918 
3919 
3920 
392'i 
3922 
3923 
3924 
3925 
3926 
3927 
3928 

3929 
3930 
3931 
3932 
3933 
3934 
3935 



021012 000004 



021014 
021014 
021016 
021022 
02 i 026 
021032 
021036 
021042 
021044 
021046 
021050 
021052 
021054 
021056 
021060 



021060 
021060 
021062 
021066 
021072 
021076 
021102 
021106 
021110 
021112 
021114 
021116 

021120 
021122 
021124 



021124 
021124 
021126 
021132 
021136 
021142 
021146 
021152 
021154 



104413 

004737 021240 
020200 000000 
020000 000000 
000000 000000 
y77777 y77777 
000000 
000004 
000012 
^77777 
104117 
0G0401 
104114 



104413 

004737 0':i240 
010200 000000 
010000 000000 
000000 000000 
010000 000000 
005013 
005004 
000012 
^77777 
104120 

000401 
104114 



104413 
004737 
060200 
060000 
000000 
060000 
000000 
000006 



021240 
000000 
000000 
000000 
000000 



.SBTTL fESr i 12 - SEE COHHENT ABOVE FOR TEST TITLE 

•iTEST 12 SEE COWENT ABOVE FOR TEST TITLE 

;*THIS IS A TEST OF THE OVERFLOV AND UNDERFLOW CONDITIONS USING 
:*THE NULF INSTRUCTION WITH TRAPS DISABLED. NOTE THAT A SUBROUTINE 
;*IS USED TO SET UP THE OPERANDS, EXECUTE THE MULF INSTRUCTION AND 
;*CHECK THE RESULTS. 
;* 

tsT12; SCOPE 

.•UNDERFLOW. WITH EXPONENT OF RESULT = -129 

nil 





LPERR 




JSR 


1$; 


.WORD 


2$: 


.WORD 


3$; 


.WORD 


4S: 


.WORD 


5S: 


0 




4 


6S: 


12 




-1 


7$: 


ERROR 




BR 




ERROR 



PC.OVUNFNT 

20200,0 

20000,0 

0,0 

-^-1 



♦117 
8S 

♦114 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
•FSRC 

;hJ:S 

:EF«ROR RES. 

;FPS BEFORE EXECUTION. 
:fPii AFTER EXECUTION. 
;FEC 
.-FLAG 

;ST 331 TO 155 INTO 115 (BUT FIU) 



8$: 



.•UNDERFLOW, WITH EXPONENT OF RESULT = -193 
III2: 



1$: 
2%: 
3S: 
4S: 
5S: 

6S: 

7$: 



8S: 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

5013 

5004 

12 

-1 

ERROR 
BR 

ERROR 



PC.OVUNFNT 
10200.0 
10000,0 
0-0 

16000.0 



♦120 



8$ 

♦114 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 
;RES 

.ERROR RES. 

:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
;FEC 
.•FLAG 

.SETTING FIUV OR FIV CAUSES TRAP 
.•WITH FIU CLEAR. 



.OVERFLOW, EXPONENT OF RESULT - 128 

III3; 



IS: 
2$: 
3$: 
4$: 
5$: 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

0 

6 



PC.OVUNFNT 
60^00,0 
60000,0 
0.0 

66000,0 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

;RES 

.ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
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3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 



021156 
021160 
021162 
021164 
021166 
021170 



3945 
3946 
3947 



021170 
021170 
021172 
021176 
021202 

3948 021206 

3949 0212 !2 
021216 
021220 
021222 
021224 
021226 



3950 
3951 
3952 
3953 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 



021230 
021232 
021234 



000010 
000000 
104121 
000401 
104113 



104413 
004737 
060200 
060200 
000000 
m777 
00601 1 
006006 
000010 
000000 
104122 

000401 
104113 
000137 



MACRO Ml 113 
FOR TEST TITLE 

6$: 

7$: 

8$: 



20-OCT-81 08:27 PAGE 



C 7 
22-1 



SEQUENCE 



021240 
000000 
000000 
000000 
M7777 



021650 



10 
0 

ERROR 
BR 

ERROR 



*121 
8$ 

♦113 



;FEC 
;FLA( 
;ST 2 



33 TO 136 INTO 116 (BUT FIV) 



.•OVERFLOW. EXPONENT OF RESULT r 130 
III4 





LrcHR 




JSR 


1$: 


.WORD 


2$: 


.WORD 


3$: 


.WORD 


4S: 


.WORD 


5$: 


6011 




6006 


6$: 


10 




0 


7$: 


ERROR 




BR 




ERROR 


8$: 


JMP 



PC.OVUNFNT 

60^00.0 

60200.0 

0.0 

-1.-1 



♦122 
8$ 

♦113 
IIIDONE 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

;RES 

.•ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 
.•FLAG 

.•SETTING FIUV OR FIU WITH 
;FIV CLEAR CAUSES TRAP. 



;60 TO NEXT TEST. 



THIS SUBROUTINE, OVUNFNT. IS USED TO SET UP THE OPERANDS. EXECUTE 
THE MULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
TO IT IS MADE THUS: 

AC OPERAND 
FSRC OPERAND 
EXPECTED RESULT 
ERROR RESULT 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
EXPECTED FEC 

0/-1 , OVER/UNDER FLOW FLAG 
TRAP ERROR. 

DATA, RESULT ERROR 
RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE MULF INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS THEN THE 
RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNFNT RETURNS CONTROL 
TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNFNT 
REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 
MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNFNT 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
.RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AMD OVUNFNT WILL 
.REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 



ACARG: 


.WORD 


X.X 


FSRCARGr.WORD 


X.X 


RES: 


.WORD 


X.X 


ERRES: 


.WORD 


X.X 


FPSB: 


.WORD 


X 


FPSA: 


.WORD 


X 


FEC: 


.WORD 


X 


FLAG: 


.WORD 


X 


ERR1: 


ERROR 


♦X 


BR 


CONT 




ERR2: 


ERROR 


♦X 


CONT: 







0 7 
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SEQUENCE 81 



3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 

AOOO 02T2A0 

4001 021242 

4002 021246 
4003 

4004 021250 

4005 021252 
4006 

4007 021254 

4008 021256 

4009 021262 

4010 021266 

4011 021272 

4012 021276 

4013 021302 

4014 021310 
4015 

4016 021316 

4017 021322 

4018 021324 

4019 021332 
4020 

4021 021340 

4022 021342 
4023 

4024 021346 
4025 

4026 021350 

4027 021352 

4028 021354 

4029 021360 

4030 021362 

4031 021366 

4032 021370 

4033 021374 
4034 

4035 021400 

4036 021404 

4037 021406 

4038 021412 

4039 021416 

4040 021420 

4041 021422 
4042 

4043 021424 

4044 021430 
4045 

4046 021432 

4047 

4048 



012601 
012700 
170100 

010100 
172410 

010102 
010237 
062702 
010237 
062702 
010237 
016137 
012737 

016100 
170100 
012737 
012737 

010100 
062700 

171010 

170204 
170305 
012700 
170100 
012700 
174010 
010437 
010537 

012700 
010102 
062702 
012703 
022022 
001015 
077303 

026104 
001002 

000161 



IF A TRAP OCCURS (IT SHOULD NOT) THEN OVUNFNT WILL READ THE FEC. 

SHOULD THE FEC NATCH THE ANTICIPATED FEC OVUNFNT WILL 

STORE ALL DATA AND TRANSFER CONTROL TO THE ERROR CALL AT ERR1. IF THE 

FEC IS NOT THE SAME AS THE ANTICIPATED FEC OVUNFNT WILL REPORT 

THE ERROR AND RETURN TO CONT. NOTE THAT OVUNFNT USES THE FLAG 

TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 

UNDERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 



000200 



OVUNFNT : 



001240 
000004 
001242 
000004 
001244 

000022 001252 
021640 001246 

000020 

021346 001236 
021532 000244 



000004 



IS: 
2S: 



000200 

021640 

001250 
001254 

021640 

000010 
000002 



000022 
000036 



3S: 



MOV 

LDFPS 

nov 

LDO 

NOV 
MOV 
ADD 

nov 

ADD 

nov 
nov 
nov 

nov 

LDFPS 

nov 
nov 

nov 

ADD 



4$: 



STFPS 
STST 

nov 

LDFPS 

nov 

STO 

nov 

NOV 

nov 

NOV 
ADD 
NOV 
CNP 
BNE 
SOB 

cnp 

BNE 
JNP 



nov (SP)4^,R1 :6ET A POINTER TO THE ARGUNENTS. 

#200, RO .-SET FD nODE. 

RO 



R1.R0 
(RO),ACO 

R1,R2 

R2.$TnP3 

«4,R2 

R2,$TnP4 

#4,R2 

R2,$TnP5 

22(R1).$TnP10 

#0VFNTT,$TnP6 

20(R1),R0 
RO 

#1$-$TnP2 
#25$,FPVECT 

R1.R0 
#4«R0 



nULF (RO) .AGO 



R4 
R5 

#200 «R0 

fOVFNfT.RO 
ACO.(RO) 
R«.iTnP7 
R5.$T«P11 

fOVFNTT.RO 
R1.R2 
fl6,R2 
#2.R3 

(R0)*.(R2)* 

15S 

R3,3S 

22(R1),R4 
10S 

36 (R1) 



.LOAD ACO, OPERAND. 



.SAVE THE DATA PATTERNS IN CASE OF 
.ERROR. 



;LOAD THE FPS. 



.SET UP THE FP TRAP VECTOR IN CASE 
;0F ERROR. 

;COnPUTE THE ADDRESS OF FSRC. 



;TEST INSTRUCTION. 

;GET FPS. 
.-GET FEC. 
.SET FD nODE. 

:GET THE RESULT. 



: CHECK THE RESULT. 



.BRANCH IF INCORRECT. 



.WAS FPS CORRECT? 

.•BRANCH IF FPS IS INCORRECT. 

.•RETURN. TEST COMPLETED. 



.REPORT INCORRECT FPS. 
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[ 7 



40^9 02U36 
4050 02K42 
4051 
4052 

4053 021444 

4054 021446 
4055 

4056 021450 

4057 021450 

4058 021452 
4059 



005761 
001002 



104111 
000771 



104112 
000767 



000026 



10S: 



11$: 



12$: 
13$: 



TST 
BNE 



ERROR 
BR 



ERROR 
BR 



26{R1) 
12$ 



♦111 
4$ 



♦112 
4$ 



;UAS THE RESULT OVER OR UNDER FLOW? 
.•BRANCH IF UNDERFLOW. 

.•REPORT FPS BAD AFTER OVERFLOW. 



.•REPORT FPS BAD AFTER UNDERFLOW. 



SEQUENCE 



CKfPfiCO FPIIF FLTG PNT PRl B MACRO N1113 20-0CT-81 08:27 
TEST » ^2 - SEE COMMENT ABOVE FOR TEST TITLE 



F 7 
PAGE 23 



SEQUENCE 



4061 






4062 021454 


012700 


021640 


4063 021460 


010102 




4064 021462 


062702 


000014 


4065 021466 


012703 


000002 


4066 021472 


022022 




4067 021474 


001007 




4068 021476 


077303 




4069 






4070 021500 


010102 




4071 021502 


062702 


000034 


4072 021506 


010237 


001236 


4073 02'S12 


000112 




4074 






4075 021514 


005761 


000026 


4076 






4077 






4078 






4079 






4080 021520 


001002 




4081 






4082 


104113 




4083 021522 




4084 021524 


000742 




4085 






4086 021526 






4087 021526 


104114 




4088 021530 


000740 




4089 






4090 






4091 021532 


011602 




4092 021534 


022702 


021350 


4093 021540 


001402 




4094 021542 


000137 


037450 


4095 






4096 021546 


022626 




4097 021550 


010237 


001236 


4098 021554 


170204 




4099 021556 


170305 




4100 021560 


012700 


000200 


4101 021564 


170100 




4102 021566 


012700 


021640 


4103 021572 


174010 




4104 021574 


010537 


001254 


4105 021600 


020561 


000024 


4106 021604 


001004 




4107 






4108 021606 


010102 




4109 021610 


062702 


000030 


4110 






4111 021614 


000112 




4112 






4113 021616 


005761 


000026 


4114 






4115 






4116 021622 


001003 




4117 







RESULT INCORRECT. 



V5$ 



16$: 



17$: 



nov 
nov 

ADD 

nov 

CMP 
BNE 
SOB 

MOV 
ADD 
MOV 
JMP 

TST 



BNE 



fOVFNTT.RO 
R1 ,R2 

*2-R3 

(R0)*.(R2)* 
17$ 

R3J6$ 

R1.R2 
#34.R2 
R2.$TMP2 
(RJ) 

26(R1) 



19$ 



18$: 



19$: 
20$: 



ERROR ♦IIS 
BR 4$ 



ERROR >114 
BR 4$ 



.-SEE IF FAILURE IS ANTICIPATED 
.•FAILURE. 



;6RANCH IF NOT ANTICIPATED. 



ERROR UAS ANTICIPATED SO RETURN 
TO THE ERROR REPORT IN THE CALLING 
ROUTINE. 



RESULT UAS NOT ANTICIPATED 
SO ERROR MUST BE REPORTED HERE. 
FIRST SEE IF ARGlfKNTS SHOULD 
HAVE RESULTED IN OVERFLOW OR UNDER 
FLOW BY LOOKING AT THE FLAG. 
BRANCH IF UNDERFLOW EXPECTED. 

REPORT RESULT INCORRECT, EXPECTING 
OVERFLOW. 



.•REPORT RESULT INCORRECT. EXPECTING 
.•UNDERFLOW. 



:IF AN FP TRAP 
25$: MOV 
CMP 
BEQ 
JMP 



26$: 



27$: 



CMP 

MOV 

STFPS 

STST 

MOV 

LDFPS 

MOV 

STD 

HOV 

CMP 

BNE 

MOV 
ADD 

JMP 

TST 

BNE 



OCCURS COME HERE. 
(SP).R2 ;GET ADDRESS OF TRAP. 

02S.R2 .-WAS THE TRAP DURING THE MULF INSTRUCTION? 

26$ .-BRANCH IF YES. 

FPSPUR .-OTHERWISE GO REPORT A SPURIOUS 
;FP TRAP. 
.RESET THE STACK. 
.SAVE DATA FOR ERROR REPORT. 
.GET FPS. 
;6ET TEC. 
:SET FD MODE. 



(SP)*.(SP)* 
R2.$TMP2 
R4 
R5 

ir200.R0 
RO 

fOVFNTT.RO 

ACO.(RO) 

R5.$TMP11 

R5.24(R1) 

27i 

R1.R2 
010. R2 

(R2) 

26(R1) 

29$ 



:GET THE RESULT. 



.WAS THE FEC ANTICIPATED? 
.BRANCH IF NOT ANTICIPATED. 

.-ERROR UAS ANTICIPATED SO 

; RE TURN TO THE ERROR REPORT OF THE 

.•CALLING ROUTINE. 



THE ERROR WAS NOT ANTICIPATED SO 

IT MUST BE REPORTED HERE. FIRST SEE IF EXPECTED 

OVERFLOW OR UNDER FLOW. 

BRANCH IF EXPECTING UNDERFLOW 
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SEQUENCE 8A 



4118 

4119 

4120 

4121 

4122 

4123 

4124 

4125 

4126 

4127 

4128 



4129 
4130 
4131 
4140 
4141 



021624 104115 

021626 000161 000036 

021632 

021632 104116 

021634 000161 000036 



28S: 



29S: 
30S: 



ERROR 
JMP 



ERROR 
JNP 



021640 000000 000000 000000 OVFNTT: .WORD 

IIIDONE: 



♦115 
36 (R1) 



♦ 116 
36(R1) 

0,0,0,0 



021650 

021650 104412 



RSETUP 



.-REPORT TRAPPED ON OVE;)FLOy WITH FIV^O 



;REPORT TRAPPED ON UNDER FLOW WITH FIU=0 



60 INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL 6?). 



.•TEST TITLE .-UNDER/OVERFLOW, USING MULD WITH TRAP DISABLED 
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H 

PAGE 



SEOUFNCE 85 



4U2 



AU3 
AHA 
AU5 

AU6 
AU7 
AU8 
AK9 
A150 
A151 
A152 
A153 
A15A 
A155 
A156 
A157 
A1S8 
A159 
A160 
A161 
A162 
A163 

A16A 
A165 
A166 
A167 
A168 
4169 
A170 
A171 
AT 72 
A173 
A17A 
A175 
A176 
A177 
A178 
A179 
A180 

A181 
A182 
A183 
A18A 
A185 



021652 OOOOOA 



02165A 
02165A 
021656 
021662 
021666 
021672 
021702 
021712 
021716 
021722 
021 72A 
021726 
021730 
021732 
02173A 
021736 
021 7A0 



021 7A0 
021 7A0 
021 7A2 
021 7A6 
021752 
021756 
021766 
021776 
022006 
022010 
022012 
02201 A 
022016 
022020 
022022 
02202A 



02202A 
02202A 
022026 
022032 
022036 
0220A2 
022052 



10AA13 
00A737 
020200 
M7272 
020000 
OOOOOC 
000000 
^27272 
000200 
00020A 
000012 
y77777 
10A131 
000A01 
10A132 



10AA13 
00A737 
010200 
123A56 
010000 
000000 
000000 
005213 
00520A 
000012 
y77777 
10A133 
000A01 
10A132 



10AA13 
0OA737 
060200 
065A32 
060000 
000000 



022200 
000000 
000000 
000000 
000000 
000000 
000000 



022200 
000000 
000000 
000000 
000000 
000000 



022200 
000000 
000000 
000000 
000000 



000000 
000000 



000000 
000000 
123A56 



SBTTL TEST # 13 - SEE COWENT ABOVE FOR TEST TITLE 



•TEST 13 



SEE COWENT ABOVE FOR TEST TITLE 



*THIS IS A TEST OF THE OVERFLOW AND UNDERFLOW CONDITIONS THAT CAN 
*ARRISE USING THE HULD INSTRUCTION WITH TRAPS DISABLED. A SUBROUTINE IS 
•USED TO SET UP THE OPERANDS, EXECUTE THE MULD INSTRUCTION AND 
•CHECK THE RESULTS. 
* 

•«*****************************•**•***••***••••••••**••*•••**••• 

tSTl3: SCOPE 

.UNDERFLOW. EXPONENT OF RESULT=-129 

JJJl: 



1$: 

2S: 
3$: 
AS: 

5$: 

6S: 

7$: 

8S: 



LPERR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
200 
20A 
12 
-1 

ERROR 
BR 

ERROR 



PC.OVUNDNT 

20^00.0 

12727^.0 

20000,6.0,0 

0.0,0,0 

0.0 

1^7272.0 



♦131 
8S 

♦132 



.•UNDERFLOW, EXPONENT OF RESULT 

JJJ2i 



IS: 

2$: 
3$: 
AS: 
5S: 

6S: 

7S: 



8S: 



LPERR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
5213 
520A 
12 
-1 

ERROR 
BR 

ERROR 



PC.OVUNDNT 

lOjOO.O 

123A56.0 

10000.0,0,0 

0,0.0.0 

0,0, lJ3A 56.0 



♦133 
8S 

♦132 



SET UP THE LOOP ON ERROR ADDRESS. 
AC 

FSRC 
RES 

ERROR RES. 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
FEC 
FLAG 

ST 331 TO 155 INTO 115 (BUT FIU) 
ST 115 (BUT FD) 



= -193 

SET UP THE LOOP ON ERROR ADDRESS. 

AC 

FSRC 
RES 

ERROR RES 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
FEC 
FLAG 

SETTING FIUV OR FIV BAD. 



ST 115 (BUT FD) 



.•OVERFLOW, EXPONENT OF RESULT 

JJJ3: 



= 128 



000000 
000000 



1S: 

2S: 
3S; 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 



PC.OVUNDNT 

60^00,0 

65432,0 

60000,0.0,0 

0,0.0,0 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

.FSRC 
;RES 
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4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 

4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 



02206? 
022072 
022074 
022076 
022100 
022102 
022104 
022106 
022110 



022110 
022110 
022112 
022116 
022122 
022126 
022136 
022146 
022156 
022160 
022162 
022164 
022166 
022170 
022172 
022174 



000000 
000200 
000206 
000010 
000000 
104134 
000401 
104135 



104413 
004737 
060200 
125252 
060200 
000000 
000000 
006211 
006206 
000010 
000000 
104136 
000401 
104135 
000137 



000000 



MACRO HI 113 
FOR TEST TITLE 

065432 4S: 
5$: 

6S: 

7$; 

8$: 



20-0CT-81 08:27 PAGE 



SEQUENCE 



022200 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
125252 



022610 



.WORD 

200 
206 
10 
0 

ERROR 
BR 

ERROR 



0,0,65432,0 



♦134 

8$ 

♦135 



.ERROR RES. 

:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
;FEC 
.•FLAG 

;ST 333 TO 136 INTO 116 (BUT FIV) 
;ST 116 (BUT FD) 



.OVERFLOW, 

JJJ4; 



EXPONENT OF RESULT = 130 



1$: 

2$: 
3$: 
4S: 
5$: 

6$: 

7$: 

8$: 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

6211 

6206 

10 

0 

ERROR 
BR 

ERROR 
JMP 



PC.OVUNDNT 

60^00.0 

12525^-0 

60200.0,0,0 

0,0,0-0 

0,0,155252.0 



♦ 136 
8$ 

♦ 135 



JJJDONE ;60 TO N§XT TEST. 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 
.RES 

.•ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 
;FLA6 

.-SETTING FIUV OR FIV BAD. 
ST 116 (BUT FD) 



THIS SUBROUTINE, OVUNDNT, IS USED TO SET UP THE OPERANDS, EXECUTE 
THE nULD INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
TO IT IS HADE THUS: 

:AC OPERAND 
.FSRC OPERAND 
; EXPECTED RESULT 
.ERROR RESULT 
;FPS BEFORE EXECUTION 
:FPS AFTER EXECUTION 
.EXPECTED FEC 

;0/-1 .OVER/UNDER FLOW FLAG 
:TRAP ERROR. 

.DATA, RESULT ERROR 
.•RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

THE MULD INSTRUCTION IS EXECUTED. IF NO TRAP OCCURS THEN THE 

RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 

COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNDNT RETURNS CONTROL 

TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNDNT 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. IF THE RESULT OF THE 

MULD IS INCORRECT. THE INCORRECT RESULT IS COMPARED WITH THE 

ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNDNT 

WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 



ACARG: 


.WORD 


X # X # X # X 


FSRCARG 


:.WORD 


X 4 X # X # X 


RES: 


.WORD 


X f X « X ^ X 


ERRES: 


.WORD 


X # X « X « X 


fPS8: 


.WORD 


X 


FPSA: 


.WORD 


X 


FEC: 


.WORD 


X 


FLAG: 


.WORD 


X 


ERR1 : 


ERROR 


♦X 


BR 


CONT 




ERR2: 


ERROR 


♦X 


CONT: 
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SEQUENCE 87 



4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 

4252 022200 

4253 022202 

4254 022206 
4255 

4256 022210 

4257 022212 
4258 

4259 022214 

4260 022216 

4261 022222 

4262 022226 

4263 022232 

4264 022236 

4265 022242 

4266 022250 
4267 

4268 022256 

4269 022262 

4270 022264 

4271 022272 
1.272 

t*27l 022300 
4274 022302 
4275 

4276 022306 
t.277 

t.27^ 022310 

4279 022312 

4280 022314 

4281 022320 

4282 022322 

4283 022326 

4284 022330 

4285 022334 
4286 

4287 022340 

4288 022344 

4289 022346 

4290 022352 

4291 022356 

4292 022360 

4293 022362 
4294 

4295 022364 

4296 022370 
4 ''97 

4298 022372 



012601 
012700 
170100 

010100 
172410 

010102 
010237 
062702 
010237 
062702 
010237 
016137 
012737 

016100 
170100 
012737 
012737 

010100 
062700 

171010 

170204 
170305 
012700 
170100 
012700 
174010 
010437 
010537 

012700 
010102 
062702 
012703 
022022 
001015 
077303 

026104 
001002 

000161 



000200 



000200 

022600 

001250 
001234 

022600 

000020 
000004 



000042 
0000S6 



RESULT WAS INCORRECT BUT UAS NOT ANTICIPATED AND OVUNDNT UILL 

REPORT THE FAILURE AFTER WHICH CONTROL UILL BE PASSED TO CONT. 

IF A TRAP OCCURS (IT SHOULD NOT) THEN OVUNDNT UILL READ THE FEC. 

SHOULD THE FEC MATCH THE ANTICIPATED FEC OVUNDNT UILL 

STORE ALL DATA AND TRANSFER CONTROL TO THE ERROR CALL AT ERR1. IF THE 

FEC IS NOT THE SAME AS THE ANTICIPATED FEC OVUNDNT UILL REPORT 

THE ERROR AND RETURN TO CONT. NOTE THAT OVUNDNT USES THE FLAG 

TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 

UNDERFLOW (FLA6--1) OR OVERFLOW (FLAG=0). 



OVUNDNT : 



001240 
000010 
001242 
000010 
001244 

000042 001252 
022600 001246 

000040 

022306 001236 
022472 000244 



000010 



1$: 
2S: 



3$: 



MOV 
LDFPS 

MOV 
LDD 

MOV 
MOV 
ADD 
MOV 
ADD 
MOV 
MOV 
MOV 

MOV 
LDFPS 
MOV 
MOV 

MOV 
ADD 



4S: 



STFPS 

STST 

MOV 

LDFPS 

MOV 

STD 

MOV 

MOV 

MOV 
MOV 
ADD 
MOV 
CMP 
ONE 

soe 

CMP 
BNE 

JMP 



MOV (SP)*.R1 ;6ET A POINTER TO THE ARGUMENTS. 

#200, RO ;SET FD MODE. 

RO 



R1.R0 

(r6),aco 

R1.R2 

R2-$TMP3 

#l6,R2 

R2.$TMP4 

#l6.R2 

R2.iTMP5 

42(R1).fTMP10 

#0VDNTT,»TMP6 

40(R1},R0 
RO 

#1$.$TMP2 
#25$.FPVECT 

R1.R0 
4ri6,RO 



MULD (RO)«ACO 



R4 
R5 

#200, RO 
RO 

«OVDNTT,RO 
ACO.(RO) 
R4.$THP7 
RS.STMPII 

#OVDNTT,RO 
R1-R2 
#26,R2 
#4.R3 

(r6)*.(R2)* 

15$ 

R3,3S 

42(R1},R4 
10$ 

56(R1) 



.-LOAD ACO, OPERAND. 



;SAVE THE DATA PATTERNS IN CASE OF 
.-ERROR. 



.-LOAD THE FPS. 



.SET UP THE FP TRAP VECTOR IN CASE 
*0F ERROR 

•COMPUTE THE ADDRESS OF FSRC. 



.-TEST INSTRUCTION. 

;6ET FPS. 
;GET FEC. 
:SET FD MODE. 

;GET THE RESULT. 



; CHECK THE RESULT. 



.•BRANCH IF INCORRECT. 



.WAS FPS CORRECT? 

.-BRANCH IF FPS IS INCORRECT. 

.-RETURN. TEST COMPLETED. 
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MACRO Ml 113 
FOR TEST TITLE 



20-OCT-81 08:27 PAGE 



< 7 
24-3 



SEQUENCE 



4299 

4300 

4301 

4302 

4303 

4304 

4305 

4306 

4307 

4308 

4309 

4310 

4311 

4312 

4313 

4314 

4315 

4316 

4317 

4318 

4319 

4320 

4321 

4322 

4323 

4324 

4325 

4326 

4327 

4328 

4329 

4330 

4331 

4332 

4333 

4334 

4335 

4336 

4337 

4338 

4339 

4340 

4341 

4342 

4343 

4344 

4345 

4346 

4347 

4348 

4349 

4350 

4351 

4352 

4353 

4354 

4355 



022376 
022402 



022404 
022406 

022410 
022410 
022412 



022414 
022420 
022422 
022426 
022432 
022434 
022436 

022440 
022442 
022446 
022452 



005761 
001002 



104123 
000771 



104124 
000767 



012700 
010102 
062702 
012703 
022022 
001007 
077303 

010102 
062702 
010237 
000112 



000046 



022600 

000030 
000004 



000054 
001236 



022454 005761 000046 



022460 001002 



022462 
022464 

022466 
022466 
022470 



022472 
022474 
022500 
022502 

022506 
022510 
022514 
022516 
022520 
022524 
022526 
022532 
022534 



104125 
000742 



104126 
000740 



011602 
022702 
001402 
000137 

022626 
010237 
170204 
170305 
012700 
170100 
012700 
174010 
010537 



022310 
037450 

001236 

000200 
022600 
001254 



:REP0RT INCORRECT FPS. 
lOS: TST 46(R1) 
BNE 12S 



IIS: 



12S: 
13S: 



ERROR 
BR 



ERROR 
BR 



♦123 
4S 



♦124 
4S 



; RESULT INCORRECT 



ISS 



16S: 



17$: 



MOV 
MOV 
ADD 
MOV 
CMP 
BNE 
SOB 

MOV 
ADD 
NOV 
JMP 

TST 



BNE 



mDNTT.RO 
R1.R2 
#30. R2 
#4tR3 

(R0)*,(R2)* 
17$ 

R3J6$ 

R1.R2 
«54,R2 
R2.$THP2 
(R2) 

46(R1) 



19$ 



18$: 



19$: 
20$: 



ERROR ♦125 
BR 4$ 



ERROR ^126 
BR 4$ 



;UAS THE RESULT OVER OR UNDER FLOW? 
.-BRANCH IF UNDERFLOW. 

.•REPORT FPS BAD AFTER OVERFLOW. 



.-REPORT FPS BAD AFTER UNDERFLOW. 



.SEE IF FAILURE IS ANTICIPATED 
.-FAILURE. 



.BRANCH IF NOT ANTICIPATED. 



.-ERROR WAS ANTICIPATED SO RETURN 
.-TO THE ERROR REPORT IN THE CALLING 
.-ROUTINE. 



.-RESULT UAS NOT ANTICIPATED 
;S0 ERROR MUST BE REPORTED HERE. 
.FIRST SEE IF ARGUMENTS SHOULD 
.-HAVE RESULTED IN OVERFLOW OR UNDER 
.-FLOW BV LOOKING AT THE FLAG. 
.-BRANCH IF UNDERFLOW EXPECTED. 

.-REPORT RESULT INCORRECT. EXPECTING 
.•OVERFLOW. 



.REPORT RESULT INCORRECT. EXPECTING 
.UNDERFLOW. 



IF AN FP TRAP OCCURS COME HERE. 



^5$: 



26$: 



MOV 
CMP 
BEQ 
JMP 

CMP 

MOV 

STFPS 

STST 

MOV 

LDFPS 

MOV 

STD 

MOV 



(SP). R2 ;GET ADDRESS OF TRAP. 

f2$.R2 :UAS THE TRAP DURING THE 

26$ :BRANCH IF rES. 

FPSPUR .OTHERWISE GO REPORT A SPURIOUS 
;FP TRAP. 
.RESET THE 
.SAVE DATA 
.-GET FPS. 
.-GET FEC. 
.-SET FD MODE. 



MULF INSTRUCTION? 



(SP)^.(SP)^ 
R2.$TMP2 
R4 
R5 

#200. RO 
RO 

#OVDNTT,RO 

ACO.CRO) 

RS.STMPII 



STACK. 

FOR ERROR REPORT. 



:GET THE RESULT. 



CKFPBCO FPIIF FLTC PNT PRT B 
TEST # 13 - SEE COmENT ABOVE 



HACRO H1113 
FOR TEST TITLE 
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SEQUENCE 



*>jjO wcCJ*»v 


n205#»1 

VC V JQ • 




001004 


H J JO 






01010? 




OA? 70? 

vOC » vC 








0001 1 2 

Vvv i • C 








005761 


H J 










001003 






4369 




4370 022564 


104127 


4371 022S66 


000161 


4372 




4373 022572 




4374 022572 


104130 


4375 022574 


000161 


4376 




4377 022600 


000000 


4378 




4379 022610 




022610 


104412 



4380 
4381 
4382 
4394 
4395 



000044 
OOOOSC 
000026 



000056 

000056 
000000 



27S: 



28$: 



29$: 
30$: 



000000 



OVDNTT: 
JJJDONE 



BNE 

MOV 
ADD 

JMP 

TST 

BNE 



ERROR 
JMP 



ERROR 
JMP 

.WORD 

'rsetup 



R5.44(R1) 
27i 

R1-R2 
#S6,R2 

(R2) 

26(R1} 



29$ 



♦ 127 
S6(R1) 



♦ 130 
56(R1) 

0.0.0.0 



.yAS THE PEC ANTICIPATED? 
.BRANCH IF NOT ANTICIPATED. 

.•ERROR UAS ANTICIPATED SO 

.RETURN TO THE ERROR REPORT OF THE 

.CALLING ROUTINE. 



;THE ERROR UAS NOT ANTICIPATED SO 

:IT MUST BE REPORTED HERE. FIRST SEE IP EXPECTED 

.OVERFLOW OR UNDER FLOW. 

.-BRANCH IF EXPECTING UNDERFLOW 

.•REPORT TRAPPED ON OVERFLOW WITH FIV=0 



.•REPORT TRAPPED ON UNDER FLOW WITH FIU^^O 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TVPED CONTROL G?). 



.•TEST TITLE :UNDER/OVERFLOW. USING MULF WITH TRAPS ENABLED 



r 
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SEOUfNCE 90 



A396 



A 397 
A 398 
4399 

AAOO 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 

4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 

4432 
4433 
4434 
4435 
4436 



022612 000004 



022614 
022614 
022616 
022622 
022626 
022632 
022636 
022642 
022644 
022646 
022650 
022652 
022654 
022656 
022660 



022660 
022660 
022662 
022666 
022672 
022676 
022702 
022706 
022710 
022712 
022714 
022716 
022720 
022722 
022724 



022724 
022724 
022726 
022732 
022736 
022742 
022746 



104413 
004737 
020123 
020200 
000123 
y77777 
002000 
102004 
000012 
-\77777 
104145 
000401 
104144 



104413 
00W37 
010127 
010200 
060127 
\77777 
m70\7 
107000 
000012 
1 77777 
104146 
000401 
104144 



104413 
004737 
060252 
060000 
000052 



023040 
045676 
000000 
045676 
}77777 



023040 
}27272 
000000 
}27272 
}77777 



023040 
125252 
000000 
125252 
}77777 



.SBTTL TEST # 14 - SEE COMMENT ABOVE FOR TEST TITLE 



' ***< 



SEE COMMENT ABOVE FOR TEST TITLE 



.••TEST 14 

••THIS IS A TEST OF THE UNDERFLOW AND OVERFLOW 

.■•CONDITIONS THAT CAN OCCUR USING THE MULF INSTRUCTION. 

.••A SUBROUTINE IS CALLED TO SET UP THE OPERANDS. 

;• EXECUTE THE MULF INSTRUCTION AND CHECK 

.••THE RESULTS. HERE THE PARTICULAR INTERRUPT. 

.••EITHER OVERFLOW OR UNDERFLOW. IS ENABLED SO A TRAP SHOULD 

.••OCCUR. 

;• I 

tSTU: SCOPE 



.UNDERFl 
KKK1: 



OW. EXPONENT OF RESULT = -129 

;SET UP THE LOOP ON ERROR ADDRESS. 



1$: 
2$: 
3$: 
4$: 
5$: 

6$: 

7$: 



8$: 



LPERR 
JSfi 
.WORD 
.WORD 
.WORD 
.WORD 
2000 
102004 
12 
-1 

ERROR 
BR 

ERROR 



PC.OVUNFT 
20123.45676 
20200.0 
123.45676 
-1.-1 



♦ 145 
8$ 

♦ 144 



.AC 

;FSRC 
.RES 

.ERROR RES. 

;FPS BEFORE EXECUTION. 
.-TPS AFTER EXECUTION. 
;FEL 
.•FLAG 

;ST 331 (BUT FIU) NO TRAP, 



.UNDERFLOW, EXPONENT OF 
KKK3: 



THE RESULT = -193 





LPERR 






JSR 


PC.OVUNFT 


1$: 


.WORD 


10127.127272 


2$: 


.WORD 


10200.0 


3$: 


.WORD 


60127.127272 


4S: 


.WORD 


-1,-1 


5$; 


7017 




107000 




6$: 


12 






-1 




7$: 


ERROR 


♦ 146 




BR 


8S 




ERROR 


♦144 



;SET UP THE LOOP ON ERROR ADDRESS. 

.AC 

;FSRC 
;RES 

.ERROR RES. 

:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 

;FEC 

.•ST 137 (BUT FIU) NO TRAP. 



8$: 

.•OVERFLOW, EXPONENT OF THE RESULT 
KKK4; 



128 



1$ 
2S 
3$ 
4S 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 



PC.OVUNFT 

60^52.125252 

60000,0 

00005^.125252 

-1.-1 



.•SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

.RES 

.ERROR RES. 
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4437 
4458 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 

4448 

4449 

4450 

4451 

4452 

4453 

4454 

4455 

4456 

4457 

4458 

4459 

4460 

4461 

4462 

4463 

4464 

4465 

4466 

4467 

4468 

4469 

4470 

4471 

4472 

4473 

4474 

4475 

4476 

4477 

4478 

4479 

4480 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4491 

4492 



022752 
022754 
022756 
022760 
022762 
022764 
022766 
022770 



022770 
022770 
022772 
022776 
023002 
023006 
023012 
023016 
023020 
023022 
023024 
023026 
023030 
023032 
023034 



001000 
101006 
000010 
000000 
104147 
000401 
104143 



104413 
004737 
060345 
060200 
000545 
}77777 
007015 
107002 
000010 
000000 
104150 
OO'^'^OI 
104145 
000157 



MACRO Ml 115 
FOfi TEST (ITLE 



5S 
6S 
7$ 



023040 
067654 
000000 
067654 
}77777 



025452 



8S: 
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1000 
101006 
10 
0 

ERROR >U7 
BR 8S 
ERROR ♦US 



N 7 

25-1 



SEQUENCE 



;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
;FEC 



.FLAG 
;ST 3 



3? (BUT FIV) NO TRAP 



.OVERFLOW, EXPONENT OF RESULT = 130 
KKKS: 





LPERR 




JSR 


1$: 


.WORD 


2$: 


.WORD 


3S: 


.UORD 


4S: 


.WORD 


5S: 


7015 




107002 


6S: 


10 




0 


7$: 


ERROR 




BR 




ERROR 


8S: 


J«P 



PC.OVUNFT 

60345.67654 

60200-0 

345.6^654 

-l.-l 



♦ 150 
8S 

♦ 143 
KKKDONE 



.SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

;RES 

.ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 
.FLAG 

;ST 133 (BUT FIV) NO TRAP 



THIS SUBROUTINE. OVUNFT. IS USED TO SET UP THE OPERANDS. EXECUTE 
THE HULF INSTRUCTION AND CHECK THE RESULTS OF AN INSTRUCTION WITH 
OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
TO IT IS HADE THUS: 

AC OPERAND 
FSRC OPERAND 
EXPECTED RESULT 
ERROR RESULT 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
EXPECTED FEC 

0/-1 .OVER/UNDER FLOW FLAG 
TRAP ERROR. 

DATA. RESULT ERROR 
RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 

THE HULF INSTRUCTION IS EXECUTED. IF THE TRAP OCCURS THEN THE 

RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 

CO(¥>ARED WITH FPSA IF THIS TOO. IS CORRECT OVUNFT RETURNS CONTROL 

TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNFT 

REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE FEC IS TREATED 

IN THE SAME WAY. IF THE RESULT OF THE ... 

«ULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 

ANTICIPATED FAILING DATA PATTERN. ERRES. IF THE FAILURE IN 

THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNFT 

WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 

RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNFT WILL 

REPORT THE FAILURE AFTER WHICH CONTROL WiLt BE PASSED TO CONT. 



ACARG: 


.WORD 


X.X 


F SRC ARG:. WORD 


X.X 


RES: 


.WORD 


X.X 


ERRES: 


.WORD 


X.X 


FPS8: 


.WORD 


X 


FPSA: 


.WORD 


X 


FEC: 


.WORD 


X 


FLAG: 


.WORD 


X 


ERR1: 


ERROR 


♦X 


BR 


CONT 




ERR2: 


ERROR 


♦X 


CONT: 
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SEOUENCf 92 



A493 
4494 
4495 
4496 
4497 

4498 023040 

4499 023042 

4500 023046 
4501 

4502 023050 

4503 023052 
4504 

45U5 023054 

4506 023056 

4507 023062 

4508 023066 

4509 023072 

4510 023076 

4511 023102 

4512 023110 
4513 

4514 023116 

4515 023122 

4516 023124 

4517 023132 
4518 

4519 023140 

4520 023142 
4521 

4522 023146 

4523 023150 
4524 

4525 023152 
4526 

4527 023156 

4528 023160 

4529 023164 

4530 023166 
4531 

4532 023172 

4533 023174 

4534 023176 

4535 023200 

4536 023204 

4537 023206 

4538 023212 

4539 023214 

4540 023220 
4541 

4542 023224 

4543 023230 

4544 023232 

4545 023236 

4546 023242 

4547 023244 

4548 023246 
4549 



012601 
012700 
170100 

010100 
172410 

010102 
010237 
062702 
010237 
062702 
010237 
0*6137 
012737 

016100 
170100 
012737 
012737 

010100 
062700 

171010 
170000 



011602 
020227 
001402 
000137 

022626 
170204 
170305 
012700 
170100 
012700 
174010 
010437 
010537 

012700 
010102 
062702 
012703 
022022 
001027 
C77303 



IF NO TRAP OCCURS CONTROL IS PASSED TO ERR1. 
NOTE THA' OVUNFNT L'SES THE FLAG 

TO TELL bxETHER OR NOT THESE 'ARTICULAR OPERANDS WILL RESULT IN 
UTiOERFLOW (FLAG=-1) OR OVERFLOW (FLAG=0). 



000200 



OVUNF T ; 



001240 
000004 
001242 
000004 
001244 

000022 001252 
023442 001246 

000020 

023146 001236 
023156 000244 



000004 



000137 023402 



023150 
037450 

000200 

023442 

001250 
001254 

023442 

000010 
000002 



1$: 
2$: 



50$: 



51$: 



3$: 



nov 
«ov 

LDFPS 

MOV 

LDD 

HOV 
MOV 
ADD 
NOV 
ADD 
MOV 
MOV 
MOV 

MOV 
LDFPS 
MOV 
MOV 

MOV 
ADD 

MULF 
CFCC 

JMP 

MOV 
CMP 
BEQ 
JMP 

CMP 

SIFPS 

STST 

MOV 

LDFPS 

MOV 

STD 

MOV 

MOV 

MOV 
MOV 
ADD 
MOV 
CMP 
BNE 
SOB 



(SP)*,R1 

f200.R0 

RO 

R1.R0 
(RO).ACO 

R1.R2 
R2,$TMP3 
#4,fi2 
R2.$TMP4 

R2.$TMP5 
22(fi1).$TMP10 
mF TT,$TMP6 

20(R1},R0 
RO 

*1$.$TMP2 
*50$,FPVECT 

RI.RO 
#4,R0 

(fiO),ACO 



;GET A POINTER TO THE ARGUMENTS. 
;SET FD MODE. 



;LOAD ACO, OPERAND. 



.-SAVE THE DATA PATTERNS IN CASE OF 
.-ERROR. 



25$ 

(SP),R2 

R2./r2$ 

5li 

FPSPUR 



.•LOAD THE FPS. 



SET UP THE FP TRAP VECTOR IN CASE 
OF ERROR. 

COMPUTE THE ADDRESS OF FSRC. 



.-TEST INSTRUCTION. SHOULD CAUSE TRAP. 



.•FAILURE, NO TRAP. 



;TRAP TO HERE AND SEE IF THE PC OF THE 
.-TRAP WAS THAT OF THE MULF INSTRUCTION. 
.•BRANCH IF YES. 
.•OTHERWISE REPORT SPURIOUS FP ERROR. 



(SP)*,(SP)* 

R4 

R5 

#200, RO 
RO 

/rOVFTT.RO 
AC0-(R6) 
R4.$TMP7 
R5.$TMP11 

#OVFTT.RO 
R1.R2 
#l6.R2 
#2,R3 

(R0)*.(R2)* 

15$ 

R3.3$ 



.•RESET THE STACK 
;GET FPS. 
;GET FEC. 
;SET FD MODE. 

;GET THE RESULT. 



.•CHECK THE RESULT. 



.•BRANCH IF INCORRECT. 
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A550 023250 


026104 


000022 


<.551 02325A 


001014 




4552 






4553 023256 


026105 


000024 


4554 023262 


001 002 




4555 023264 


000161 


000036 


4556 






4557 






4558 023270 


005761 


A A A A 

000026 


4559 023274 


001 C02 




4560 






4561 






4562 023276 


104137 




4563 023300 


000771 




4564 






4565 023302 






4566 023302 


104140 




4567 023304 


000767 




4568 






4569 






4570 023306 


005761 


A A A A*^ ^ 

000026 


4571 023312 


001002 




4572 






4573 






4574 023314 


104141 




4575 023316 


000762 




4576 






4577 023320 






4578 023320 


104142 




4579 023322 


AAA ^ ^ A 

000760 




4580 






4581 






4582 023324 


A 4 ^ ^A A 

012700 


023442 


4583 023330 


/■ 4 A 4 A^ 

010102 




4584 023332 


062702 


AAAA4 t 

000014 


4585 023336 


012703 


A A A A A 

000002 


4586 023342 


022022 




4587 023344 


A A 4 A A ^ 

001007 




4588 023346 


077303 




4589 






4590 023350 


A 4 A4 A ^ 

010102 




4591 023352 


062702 


AAAA9 y 

000034 


4592 023356 


A 4 A '^V 9 

010237 


AA4 'HV^ 

001236 


4593 023362 


AAA 4 4 t 

000112 




4594 






4595 023364 


AAP 4 

005761 


AAAA^^ 

000026 


4596 






4597 






4598 






4599 






4600 023370 


AA 4 A A'^ 

001002 




4601 






4602 






4603 023372 


104143 




4604 023374 


000733 




4605 






4606 023376 







4S: 



BNE 

CMP 
BNE 
J«P 



22(R1),R4 
10S 

24(R1).R5 
5S 

36(R1) 



:REPORT INCORRECT FEC. 
5$: TST 26(R1) 
BNE 7$ 



6S: 



7$: 
8S: 



ERROR 
BR 



ERROR 
BR 



♦137 
4$ 



♦140 
4$ 



.•REPORT INCORRECT FPS. 
10$: TST 26(R1) 
BNE 12$ 



11$: 



ERROR 
BR 



12$: 

13$: ERROR 
BR 



♦141 
4$ 



♦142 
4$ 



RESULT INCORRECT. 



V5$: 



16$: 



17$: 



nov 

MOV 
ADD 
MOV 
CMP 
BNE 
SOB 

MOV 
ADD 
MOV 
JMP 

TST 



BNE 



fOVFTT.RO 
R1,R2 
#14. R2 
#2.R3 

(R0)^.(R2)^ 
17$ 

R3.16$ 

R1.R2 
#34.R2 
R2.$TMP2 
(R2) 

26(R1) 



19$ 



18$: 



19$: 



ERROR 
BR 



♦143 
4$ 
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.WAS FPS CORRECT? 

.-BRANCH IF FPS IS INCORRECT. 

;IS FEC CORRECT? 

;IF INCORRECT BRANCH. 

.RETURN. TEST COMPLETED. 



.WAS THE RESULT OVERFLOW OR UNDERFLOW? 
.•BRA^'CH IF UNDERFLOW. 

.•REPORT BAD FEC ON EXPECTED OVERFLOW. 
.•REPORT BAD FEC ON EXPECTED UNDERFLOW. 



:WAS THE RESULT OVER OR UNDER FLOW? 
.•BRANCH IF UNDERFLOW. 

.•REPORT FPS BAD AFTER OVERFLOW. 
.•REPORT FPS BAD AFTER UNDERFLOW. 



;SEE IF FAILURE IS ANTICIPATED 
; FAILURE. 



;BRANCH IF NOT ANTICIPATED. 



ERROR WAS ANTICIPATED SO RETURN 
TO THE ERROR REPORT IN THE CALLING 
ROUTINE. 



.•RESULT WAS NOT ANTICIPATED 
;S0 ERROR MUST BE REPORTED HERE. 
.•FIRST SEE IF ARGUMENTS SHOULD 
.•HAVE RESULTED IN OVERFLOW OR UNDER 
;FLOW BY LOOKING AT THE FLAG. 
.•BRANCH IF UNDERFLOW EXPECTED. 

.•REPORT RESULT INCORRECT. EXPECTING 
.•OVERFLOW. 



.•REPORT RESULT INCORRECT. EXPECTING 
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4607 
4608 
4609 
4610 
4611 
4612 
4613 
4614 
4615 
4616 
4617 
4618 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 



4627 
4628 
4629 
4637 
4638 



023376 
023400 



023402 
023404 
023406 
023412 
023414 
023420 
023422 
023426 
023432 
023434 

023440 

023442 

023452 
023452 



104144 
000731 



170204 
170305 
012700 
170100 
012700 
174010 
010437 
010537 
010102 
062702 

000112 



104412 



20$: 



ERROR 
BR 



♦ 144 
4$ 



NO FP TRAP OCCURS COHE HERE. 



000200 

023442 

001250 
001254 

000030 



STFPS 
STST 

nov 

LDFPS 

MOV 

STD 

nov 
nov 
nov 

ADD 
JMP 



R4 
R5 
#200. RO 

RO 

fOVFTT.RO 

ACO.(RO) 

R4.iTHP7 

RS.STHPll 

R1.R2 

*36.R2 

(R2) 



000000 000000 000000 OVFTT: .WORD 0,0,0,0 
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.-UNDERFLOW. 



KKKDONE : 



RSETUP 



GET 
GET 
SET 



FPS. 
FEC. 

FD MODE. 



;GET THE RESULT. 



ERROR UAS ANTICIPATED SO 
RETURN TO THE ERROR REPORT OF 
CALLING ROUTINE. 



THE 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



.•TEST TITLE rUNDER/OVERFLOW. USING MULD WITH TRAPS ENABLED 
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^639 



023A54 

4640 
4641 

4642 023456 
023456 

4643 0234u0 

4644 023464 

4645 023470 

4646 023474 

4647 023504 

4648 023514 

4649 023520 

4650 023524 

4651 023526 

4652 023530 

4653 023532 

4654 023534 

4655 023536 

4656 023540 

4657 023542 
4658 

4659 

4660 023542 
023542 

4661 023544 

4662 023550 

4663 023554 

4664 023560 

4665 023570 

4666 023574 

4667 023600 

4668 023610 

4669 023612 

4670 023614 

4671 023616 

4672 023620 

4673 023622 

4674 023624 

4675 023626 
4676 

4677 

4678 023626 
023626 

4679 023630 

4680 023634 

4681 023640 

4682 023644 

4683 023654 



000004 



104413 








LPERR 


004737 


024002 






JSR 


020052 


125252 




IS: 


.WORD 


125252 


125252 






.WORD 


020300 


000000 


000000 


2$: 


.WORD 


000177 


-[77777 


\77777 


3S: 


.WORD 


000177 


\77777 




4$: 


.WORD 


125252 








.WORD 


002200 






5S: 


2200 


102204 








102204 


000012 






6$: 


12 


M7777 








-1 


104157 






7$: 


ERROR 


000401 








BR 


104160 








ERROR 



.S8TTL TEST # 15 - SEE COWIENT ABOVE FOR TEST TJTlE 
i-iTEST 15 SEE COWIENT ABOVE FOR TEST TITLE 

:*THIS IS A TEST OF THE OVER FLOW AND UNDER FLOW CONDITIONS USING THE 
;*nULD INSTRUCTION WITH TRAPS ENABLED. A SUBROUTINE IS USED TO SET UP 
;*THE OPERANDS, EXECUTE THE NULD INSTRUCTION AND CHECK THE RESULTS. 

tST15: SCOPE 

.UNDERFLOW. EXPONENT OF RESULT = -129 
LLL1 



8S: 



PC.OVUNDT 

20652.125252 

12525^.125252 

20300,0.0,0 

177.-^.-1.-1 

177.-1 

125^52,125252 



♦157 

8S 

♦160 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 
;RES 

.ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.FEC 
.FLAG 

:ST 331 (BUT FIU) NO TRAP. 



;ST 155 (BUT FD) 



.UNDERFLOW, EXPONENT OF THE RESULT 
LLL2: 



104413 








LPERR 


004737 


024002 






JSR 


010327 


M7272 




1S: 


.WORD 


036363 


045454 






.WORD 


010000 


000000 


000000 


2$: 


.WORD 


060127 


M7272 




31: 


.WORD 


036363 


045454 






.WORD 


\77777 


y77777 


\77777 


4S: 


.WORD 


m7iy7 






5S: 


72\7 


107200 








107200 


000012 






6S: 


12 


\77777 








-1 


104161 






7$: 


ERROR 


000401 








BR 


104156 








ERROR 



8S: 



PC.OVUNDT 

10^27,127272 

36363.45454 

10000,0.0.0 

60127,1^7^72 

36363,45454 

-1,-1.-1.-1 



♦161 

8$ 

♦156 



-193 

:SET UP THE LOOP ON ERROR ADDRESS. 
;AC 



;FSRC 
.RES 

.ERROR RES. 

;fPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 
.-FLAG 

;ST 137 (BUT FIU) NO TRAP. 



104413 

004737 024002 

060252 125252 

125252 125252 

160100 000000 

100177 ^77777 



000000 
y77777 



; OVERFLOW, EXPONENT OF THE RESULT = 128 

LPERR ;SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC.OVUNDT 

1$: .WORD 60^52.125252 ;AC 

.WORD 12525^.125252 ;FSRC 

2$: .WORD 160100,0,0,0 ;FSRC 

3f: .WORD 100177,-1,-1,-1 ;RES 
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SEOUENCF 



96 



4684 023664 

4685 023670 

4686 023674 

4687 023676 

4688 023700 

4689 023702 

4690 023704 
«.691 023706 

4692 023710 

4693 023712 
4694 

4695 

4696 023712 
023712 

4697 023714 

4698 023720 

4699 023724 

4700 023730 

4701 023740 

4702 023744 

4703 023750 

4704 023760 

4705 023762 

4706 023764 

4707 023766 

4708 023770 

4709 023772 

4710 023774 

4711 023776 
4712 

4713 
4714 
4715 
4716 
4717 
4718 



100177 
125252 
001200 
101216 
000010 
000000 
104162 
000401 
104163 



104413 
004737 
060345 
056765 
060200 
000345 
056765 
M7777 
007215 
107202 
000010 
000000 
104164 
000401 
104155 
000137 



y77777 
125252 



4S 
5S 
6S 
7$ 

8S: 



.WORD 

.WORD 

1200 

101216 

10 

0 

ERROR 
BR 

ERROR 



100177.-1 
125252,125252 



♦ 162 

8S 

♦163 



.ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 
.FLAG 

;ST 333 (BUT FIV) NO TRAP. 
;ST 700 (BUT FD). 









LPERR 


024002 






JSR 


067654 




IS: 


.WORD 


045676 






.WORD 


000000 


000000 


2S: 


.WORD 


067654 




3S: 


.WORD 


045676 






.WORD 


\77777 


^77777 


4S: 


.WORD 






5S: 


7215 








107202 






6$: 


10 








0 






7$: 


ERROR 








BR 








ERROR 


024414 




8S: 


JMP 



.OVERFLOy, EXPONENT OF THE RESULT = 130 
LLL4 



PC.GVUNDT 

60^45.67654 

56765.45676 

60200-0.0.0 

345.67654 

56765.45676 

-1,-1.-1.-1 



♦164 
8S 
♦155 
LLLDONE 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 
;RES 

.ERROR RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;fEC 
.•FLAG 

;ST 133 (BUT FIV) NO TRAP 



;THIS SUBROUTINE. OVUNDT. IS USED TO SET UP THE OPERANDS, EXECUTE 
.-THE nULO INSTRUCTION AND CHECK THE RESULTS Of AN INSTRUCTION WITH 
.-OPERANDS WHICH SHOULD RESULT IN EITHER OVERFLOW OR UNDERFLOW. A CALL 
;T0 IT IS MADE THUS: 



ACARG: .WORD X,X,X,X 



;AC OPERAND 
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4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 

4750 024002 012601 

4751 024004 012700 000200 

4752 024010 170100 
4753 

4754 024012 010100 

4755 024014 172410 
4756 

4757 024016 010102 

4758 024020 010237 

4759 024024 062702 

4760 024030 010237 

4761 024034 062702 

4762 024040 010237 

4763 024044 016137 

4764 024052 012737 
4765 

4766 024060 016100 

4767 024064 170100 

4768 024066 012737 

4769 024074 012737 
4770 

4771 024102 010100 

4772 024104 062700 000010 
4773 

4774 024110 171010 1$: 

4775 024112 170000 2$; 
4776 
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SEQUENCE 



FSRCARG 


: .WORD 


X # X # X / X 


RES: 


.WORD 


X # X # X ^ X 


ERRES: 


.WORD 


X / X ^ X / X 


FPSB: 


.WORD 


X 


FPSA: 


.WORD 


X 


r f ^ . 

FtC : 


.WORD 


X 


FLAG: 


.WORD 


X 


ERR1: 


ERROR 


♦X 


BR 


CONT 




ERR2: 


ERROR 


♦X 


CONT: 







;FSRC OPERAND 
.EXPECTED RESULT 
.ERROR RESULT 
;FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.EXPECTED FEC 

;0/-1.0VER/U^*DER FLOW FLAC 
.TRAP ERROR. 

.-DATA. RESULT ERROR 
.RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO AS THE ACCUMULATOR). THEN 
THE MULD INSTRUCTION IS EXECUTED. IF THE TRAP OCCURS THEN THE 
RESULT IS CHECKED AGAINST RES. IF THE RESULT IS CORRECT THEN THE FPS IS 
COMPARED WITH FPSA IF THIS TOO IS CORRECT OVUNDT RETURNS CONTROL 
TO THE CALLING ROUTINE AT CONT. IF THE FPS IS BAD OVUNOT 
REPORTS THIS FAILURE AND THEN RETURNS TO CONT. THE FEC IS TREATED 
IN THE SAME UAV. IF THE RESULT OF THE 

MULF IS INCORRECT, THE INCORRECT RESULT IS COMPARED WITH THE 
ANTICIPATED FAILING DATA PATTERN, ERRES. IF THE FAILURE IN 
THE RESULT WAS ANTICIPATED CORRECTLY TO BE ERRES THEN OVUNDT 
WILL TRANSFER CONTROL TO THE ERROR CALL AT ERR2. OTHERWISE THE 
RESULT WAS INCORRECT BUT WAS NOT ANTICIPATED AND OVUNDT WILL 
REPORT THE FAILURE AFTER WHICH CONTROL WILL BE PASSED TO CONT. 
IF NO TRAP OCCURS CONTROL IS PASSED TO ERR1. 
NOTE THAT OVUNDNT USES THE FLAG 

TO TELL WHETHER OR NOT THESE PARTICULAR OPERANDS WILL RESULT IN 
UNDERFLOW (FLAG>-1) OR OVERFLOW (FLAG^O). 



001240 
000010 
001242 
000010 
001244 

000042 001252 
024404 001246 

000040 

024110 001236 
024120 000244 



OVUNDT: MOV 
MOV 
LDFPS 

MOV 
LDD 

MOV 
MOV 
ADD 
MOV 
ADD 
MOV 
MOV 
MOV 



MOV 
LDFPS 
MOV 
MOV 

MOV 
ADD 

MULD 
CFCC 



(SP)*.R1 
#200, RO 
RO 

R1.R0 
(R0),ACO 

R1.R2 
R2-$TMP3 
#l6.R2 
R2.iTMP4 
»l6.R2 
R2,$TMP5 
42(R1),$TMP10 
#0VDTT,$TMP6 

40(R1),R0 
RO 

<fU.$TMP2 
#50i.FPVECT 

R1.R0 
«l6,R0 

(RO).ACO 



;GET A POINTER TO THE ARGUMENTS. 
;SET FD MODE. 



.LOAD ACO. OPERAND. 



;SAVl 
;ERROh. 



'»\TA PATTERNS IN CASE OF 



.•LOAD THE FPS. 



;SET UP THE FP TRAP VECTOR IN CASE 
*0F ERROR 

•COMPUTE THE ADDRESS OF FSRC. 



.TEST INSTRUCTION. SHOULD CAUSE TRAP. 
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4777 

4778 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4'87 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 

4806 

4807 

4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

48^8 

4829 

4830 

4831 

4832 

4833 



024114 000137 024344 

024120 011602 

024122 020227 024112 

024126 001402 

024130 000137 037450 

024134 022626 

024156 170204 

024140 170305 

024142 012700 000200 

024146 170100 

024150 012700 024404 

024154 174010 

024156 010437 001250 

024162 010537 001254 

024166 012700 024404 

024172 010102 

024174 062702 000020 

024200 012703 000004 

024204 022022 

024206 001027 

024210 077303 

024212 026104 000042 

024216 001014 

024220 026105 000044 

024224 001002 

024226 00016^ 000056 



024232 005761 000046 
024236 001002 



024240 104151 

024242 000771 

024244 

024244 104152 

024246 000767 



024250 005761 000046 
024254 001002 



024256 104153 

024260 000762 

024262 

024262 104154 

024264 000760 



50$: 



51$: 



3$: 



4S: 

: REPORT 
5$: 



6$: 



nov 

CNP 
BEQ 
J«P 

C«P 

STfPS 

STST 

nov 

LDFPS 

nov 

STD 
MOV 

mv 

MOV 
MOV 
ADD 
MOV 
CMP 
BNE 
SOB 

CMP 
BNE 

CMP 
BNE 
JMP 



25S 



(SP).R2 
R2.*2$ 
5li 

FPSPUR ;OTHERWI 

(SP)*.(SP)* 
R4 
R5 

#200, RO 
RO 

#OVDTT.RO 
ACO.(RO} 
R4,iTMP7 
R5.$TMP11 

fOVDTT.RO 
R1-R2 
#26.R2 
#4.R3 

(R0)*.(R2)* 
15$ 
R3,3$ 

42(R1),R4 
10$ 

44(R1),R5 
5$ 

56(R1) 



INCORRECT FEC. 
TST 46(R1) 
BNE 7$ 



7$: 
8$: 



.REPORT 
10$: 



11$: 



12$: 
13$: 



ERROR 
BR 



ERROR 
BR 



♦ 151 
4$ 



♦152 
4$ 



INCORRECT FPS. 
TST 46(R1) 
BNE 12$ 



ERROR 
BR 



ERROR 
BR 



♦153 
4S 



♦ 154 
4$ 



; FAILURE, NO TRAP. 

.TRAP TO HERE AND SEE IF THE PC OF THE 
.-TRAP WAS THAT OF THE MULF INSTRUCTION. 
.BRANCH IF YES. 
SE REPORT SPURIOUS FP ERROR. 

.RESET THE STACK 
.GET FPS. 
;6ET FEC. 
:SET FD MODE. 

;GET THE RESULT. 



.•CHECK THE RESULT. 



; BRANCH IF INCORRECT. 



;WAS FPS CORRECT? 

.•BRANCH IF FPS IS INCORRECT. 

;IS FEC CORRECT? 

;IF INCORRECT BRANCH. 

.•RETURN. TEST COMPLETED. 



;WAS THE RESULT OVERFLOW OR UNDERFLOW? 
.•BRANCH If UNDERFLOW. 

.•REPORT BAD FEC ON EXPECTED OVERFLOW. 



.REPORT BAD FEC ON EXPECTED UNDERFLOW. 



.•WAS THE RESULT OVER OR UNDER FLOW? 
.•BRANCH IF UNDERFLOW. 

.REPORT FPS BAD AFTER OVERFLOW. 



.•REPORT FPS BAD AFTER UNDERFLOW. 



;RESULT INCORRECT. 
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4834 024266 


01 7700 


074404 
UCHHUH 


rare 


010107 




HO JO UcHCfH 


OA 5 70 7 
UOc r vc 


0000X0 




ni P70X 


000004 




UccUcC 




Z.S7Q 


001007 




077X0X 












01 01 07 






0^7707 


0000 S 4 

wvUU JH 




0107X7 


001 7X6 




0001 1 7 










4847 024326 


00S761 


000046 


HOMO 






mOM y 






HO jU 






HOj I 






^BS3 0?^XXP 

OJ J 


001007 








HO 








104155 






0007X3 




HO J i 












4fl^0 074^40 


104156 




HOOW WCHJ«fC 


0007X1 




HOO 1 






HOOt 






CfkA'K 074X44 


1 r vCv"t 




^RA4 07474A 


1 r \JJ\JJ 




4ftA^ 074XS0 




000200 

VWC w 


LfifJk 074^54 


170100 




HOOr vC^JJO 


017700 


074404 


4flAA 074'^? 


1 f "tV 1 w 




LftAQ 074 1^4 


0104X7 

V • V^ J » 


001250 

WV 1 C ^ V 


4R70 074X70 

HOfU UcHjf V/ 


0105X7 


001254 


4M71 074X74 

HOf 1 vCHJf "t 


01010? 


000050 


4R77 074X76 

HO* C vCH^rw 


062702 

VwC > vC 


4873 






4874 024402 


000112 




4875 






4876 024404 


000000 


000000 


4877 






4878 024414 






024414 


104412 





4879 
4880 
4881 
4882 
4890 



15$: 
16S: 



17$; 



nov 

MOV 
ADD 
MOV 
CMP 
BNE 

soe 

MOV 
ADD 
MOV 
JMP 

TST 



BNE 



#OVDTT,R0 
R1-R2 
#36, R2 
#4-R3 

(R0)*,(R2)* 
17$ 

R3J6$ 

R1,R2 

#5i,R2 

R2-$TMP2 

(R2) 

46(R1) 



19$ 



18$: 



19$: 
20$: 



ERROR 
BR 



ERROR 
BR 



♦ 155 
4$ 



♦ 156 
4$ 



;SEE IF FAILURE IS ANTICIPATED 
;FAILURE. 



.-BRANCH IF NOT ANTICIPATED. 



ERROR yAS ANTICIPATED SO RETURN 
TO THE ERROR REPORT IN THE. CALLING 
ROUTINE. 



RESULT WAS NOT ANTICIPATED 
SO ERROR MUST BE REPORTED HERE. 
FIRST SEE IF ARGUMENTS SHOULD 
HAVE RESULTED IN OVERFLOW OR UNDER 
FLOW BY LOOKING AT THE FLAG. 
BRANCH IF UNDERFLOW EXPECTED. 

REPORT RESULT INCORRECT, EXPECTING 
OVERFLOW. 



.•REPORT RESULT INCORRECT. EXPECTING 
.•UNDERFLOW. 



If HQ fP TRAP OCCURS COME HERE. 



^5$: 



STFPS 
STST 
MOV 
LDFPS 
NOV 
STD 
MOV 
MOV 
MOV 
ADD 

JMP 



R4 
R5 
#200. RO 
RO 

fOVDTT.RO 

ACO.(RO) 

R4.$TMP7 

R5.$TMP11 

R1.R2 

f56.R2 

(R2) 



;6ET FPS. 

.•GET FEC. 

:SET FD MODE. 

.-GET THE RESULT. 



ERROR WAS ANTICIPATED SO 
RETURN TO THE ERROR REPORT OF 
CALLING ROUTINE. 



THE 



000000 OVDTT: .WORD 0.0.0.0 
LLLDONE; 

RSETUP 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TVPED CONTROL G?). 
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.S8TTL TEST # 16 - HOOF TEST 



.••TEST 16 



nODF TEST 



.••THIS IS A TEST OF THE HOOF INSTRUCTION. WHICH MAKES USE OF 

;*A SUBROUTINE TO SET UP THE OPERANDS. EXECUTE THE MODF INSTRUCTION 

.-•AND CHECK THE RESULTS. 



4892 
4893 
4894 

4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 

4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 

4927 
4928 
4929 
4930 
4931 
4932 
4933 
A954 
4935 



024416 0^0004 



TST16: SCOPE 



024420 
024420 
024422 
024426 
024432 
024436 
024442 
024446 
024452 
024456 
024460 
024462 
024464 
024466 
024470 



024470 
024470 
024472 
024476 
024502 
024506 
024512 
024516 
024522 
024526 
024530 
024532 
024534 
024536 
024540 



024540 
024540 
024542 
024546 
024552 
024556 
024562 
024566 
024572 
024576 
024600 



104413 
004737 
000000 
000000 
000000 
000000 

000013 
000004 
104056 
000401 
IP '.05 7 



104413 
004737 
123456 
000000 
000000 
000000 
123456 

Mim 

000000 
000004 
104056 
000401 
104057 



104413 
004737 
000000 
076543 
000000 
000000 
000000 

1 nm 

000003 
000004 



;MODF 
6661 



WITH (FSRC=AC=0) 







LPERR 




025504 




JSR 


Pr.MODFSUB 


000000 


1$: 


.WORD 


0.0 


000000 


2$: 


.WORD 


0.0 


000000 


3$: 


.WORD 


0.0 


000000 


4$: 


.WORD 


0,0 


M7777 


5$: 


.WORD 


\77777 


6$: 
7$: 


.WORD 
13 

4 


-1.-1 




8$: 


ERROR 
BR 

ERROR 


♦56 

9S 

♦57 



025504 
076543 
000000 
000000 
000000 
076543 
m777 



025504 
000000 
021234 
000000 
000000 
000000 
^77777 



9S: 

;«ODF 

G662: 



1$ 
2$ 
3$ 
4$ 
5$ 
6$ 
7$ 

8$ 



9$: 

;«ODF 
GGG3: 



1$ 
2$ 
3$ 
4$ 
5$ 
6$ 
7$ 



TEST, WITH (FSRC=0) 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

0 

4 

ERROR 
BR 

ERROR 



PC.MOOFSUB 

12^456.76543 

0.0 

0.0 

1^3456.76543 
-1.-1 



♦56 
9$ 

♦57 



TEST WITH (AC=0) 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

3 

4 



PC.MODFSUB 
0.6 

76543.21234 

0.0 

0.0 

0,0 

-1.-1 



:SET UP THE LOOP ON ERROR ADDRESS. 



AC 

FSRC 

FRACTIONAL RES. 
INTEGER RES. 
ERROR FRACTIONAL RES. 
ERROR INGETER RES. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
STORE SINGLE ZERO BAD. 

AC V 1 <= ZERO FAILED. 



;SET UP THE LOOP ON ERROR ADDRESS. 



AC 
FSRC 

FRACTIONAL RES. 
INTEGER RESULT. 
ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
STORE ZERO FAILURE. 



.SET UP THE LOOP ON ERROR ADDRESS. 
AC 

FSRC 

FRACTIONAL RES. 
INTEGER RES. 
ERROR FRACTIONAL RES. 
ERROR 'INTEGER RES. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
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SEQUENCE ^01 



4956 
4937 
4938 
4939 
4940 
4941 
4942 

4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 

4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
4973 
4974 

4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 
4988 
4989 



024602 
024604 
024606 
024610 



024610 
024610 
024612 
024616 
024622 
024626 
024632 
024636 
024642 
024646 
024650 
024652 
024654 
024656 
024660 



024660 
024660 
024662 
024666 
024672 
024676 
024702 
024706 
024712 
024716 
024720 
024722 
024724 
024726 
024730 



024730 
024730 
024732 
024736 
024742 
024746 
024752 
024756 
024762 
024766 
024770 
024772 

024774 
024776 
025000 



104053 
000401 
104057 



104413 
004737 
046252 
040300 
000000 
046377 
046252 
040300 
000013 
000004 
104053 
000401 
104060 



104413 
004737 
077652 
040300 
000000 
077777 
077652 
040300 
000000 
000004 
104053 
000401 
104060 



104413 
004737 
046200 
040340 
000000 
046340 
040000 
}77777 
000013 
000004 
104061 

000401 
104054 



025504 
125252 
000000 
000000 
U7777 
125252 
000000 



025504 
125252 
000000 
000000 
y77777 
125252 
000000 



025504 
000001 
000000 
000000 
000001 
000000 
}77777 



8S: 



9$: 



ERROR ^53 
BR 9S 
ERROR +57 



.RES.BAD 



;HODF TEST WITH EXPONENT OF THE RESULT = 25 
G6G4 





1 DC DO 






JSR 


PC.HODFSUB 


1$ 


.WORD 


46^52,125252 


2$ 


.WORD 


40300,0 


3$ 


.WORD 


0,0 


4$ 


.WORD 


46377.-1 


5$ 


.WORD 


46252,125252 


6$ 


.WORD 


40300,0 


7$ 


13 
4 




8S 


ERROR 


♦53 




BR 


9$ 




ERROR 


♦60 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.•FRACTIONAL RES. 
.INTEGER RES. 
.ERROR FRACTIONAL RES. 
.•ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
•ST 134 



9$: 

;HODF 
GGG5: 



1$ 
2$ 
3$ 
4$ 
5$ 
6$ 
7$ 

8S: 



9$: 

.«ODF 

GGG6: 



TEST WITH EXPONENT OF THE RESULT = 127 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

0 

4 

ERROR 
BR 

ERROR 



PC.nODFSUB 
77652.125252 
40300,0 
0.0 

7f777.'} 

77652,125252 

40300,0 



♦53 

9$ 

♦60 



SET UP THE LOOP ON ERROR ADDRESS. 
AC 

FSRC 

FRACTIONAL RES. 
INTEGER RES. 
ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 



TEST WITH EXPONENT OF RESULT = 25 





LPERR 






JSR 


PC.A0DFSU6 


IS: 


.WORD 


46^00,1 


2$: 


.WORD 


40340.0 


3$: 


.WORD 


0.0 


4S: 


.WORD 


46340.1 


5$: 


.WORD 


40000,0 


6$: 


.WORD 


-1.-1 


7i: 


13 




4 




8$: 


ERROR 


♦61 




BR 


9$ 




ERROR 


♦54 



SET UP THE LOOP ON ERROR ADDRESS. 

AC 

FSRC 

FRACTIONAL RES. 

INTEGER RES. 

ERROR FRACTIONAL RES. 

ERROR INTEGER RES. 

FPS BEFORE EXECUTION. 

FPS AFTER EXECUTION. 

BAD CONSTANT (NOT 24), 

OR ST 525 TO 050 INTO 150. 



9$; 
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SEQUENCE 102 



4990 

4991 025000 
025000 
A992 025002 

4993 025006 

4994 025012 

4995 025016 

4996 025022 

4997 025026 

4998 025032 

4999 025036 

5000 025040 

5001 025042 
5002 

5003 025044 

5004 C25046 

5005 025050 
5006 

5007 

5008 025050 
025050 

5009 025052 

5010 025056 

5011 025062 

5012 025066 

5013 025072 

5014 025076 

5015 025102 

5016 025106 

5017 025110 

5018 025112 

5019 025114 

5020 025116 

5021 025120 
5022 

5023 

5024 025120 
025120 

5025 025122 

5026 025126 

5027 025132 

5028 025136 

5029 025142 

5030 025 U6 

5031 025152 

5032 025156 

5033 025160 
•=034 025162 

5035 025164 

5036 025166 

5037 025170 
5038 

5039 

5040 025170 
025170 

5041 025172 

5042 025176 



104413 

004737 025504 
046000 000001 
040340 OOOOOC 
040100 000000 
046140 000001 
000000 000000 
}77777 }77777 
000000 
000000 
104062 

000401 
104054 



104413 

004737 025504 
042577 }77777 
040200 000000 
040177 176000 
042577 140000 
}77777 }77777 
y77777 U7777 
000000 
000000 
104053 
000401 
104054 



104413 

004737 025504 
042577 140001 
040200 000000 
034600 000000 
042577 140000 
000000 000000 
^777n ^77777 
000000 
000000 
104063 
000401 
104054 



104413 

004737 025504 
042377 100000 



;H0DF 

66G7: 



1$ 
2$ 
3$ 
4S 
5$ 
6S 
7$ 



TEST WITH EXPONENT OF THE RESULT = 24 



8S: 



9$: 



LPERR 

JSR 

.WORD 

.yORD 

.WORD 

.UORD 

.WORD 

.UORD 

0 

0 

ERROR 
BR 

ERROR 



PC.HODFSUB 
46600 J 
40340 n 

HUiOO.O 
46140.1 
0.0 
-1.-1 



♦62 



9$ 

♦54 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.•FRACTIONAL RES. 
.•INTEGER RESULT. 
.ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
:8AD CONSTANT USED (NOT 24) 
;0R ST 525 TO 150 INTO 050 



;HODF 
GGG8: 



1S 
2S 
3S 
4S 
5S 
6S 
7$ 

8S: 



9$: 



TEST WITH EXPONENT OF THE RESULT = 10 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

0 

0 

ERROR 
BR 

ERROR 



PC.MODFSUB 

42$77.-1 

40200.0 

40177.176000 

42577.140000 

-1.-1 

-1.-1 



♦53 

9$ 

♦54 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

;FRACTIONAL RES. 
.INTEGER RES. 
.-ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 



;«ODF TEST WITH 
GGG9: 



1S 
2S 
3S 
4$ 
5$ 
6$ 
7$ 

8S: 



9$; 



LPERR 

JSR 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

0 

0 

ERROR 
BR 

ERROR 



THE EXPONENT OF THE RESULT = 10 

.SET UP THE LOOP ON ERROR ADDRESS. 



PC.WODFSUB 
42577.140001 
40200.0 
34600.0 
42577.140000 
0,0 
-1,-1 



♦63 
9$ 

♦ 54 



;AC 
;FSRC 

.•FRACTIONAL RES. 

.INTEGER RES. 

.•ERROR FRACTIONAL RES. 

.ERROR INTEGER RES. 

:FPS BEFORE EXECUTION. 

;FPS AFTER EXECUTION. 

:ST S32 TO 122 INTO NORMALIZE 



;«ODf TCSr WITH EXPONENT OF THE RESULT = 9 
GGG10: 

LPERR .SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC.M0DFSU8 
1$: .WORD 42577,100000 ;AC 
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SEQUENCE 103 



5045 025202 
S044 025206 
'5045 025212 

5046 025216 

5047 025222 

5048 025226 

5049 025230 

5050 025232 

5051 025254 

5052 025236 

5053 025240 
5054 

5055 

5056 025240 
025240 

5057 025242 

5058 025246 

5059 02S2S2 

5060 02S2S6 

5061 025262 

5062 025266 

5063 025272 

5064 025276 

5065 025300 

5066 025302 

5067 025304 

5068 025306 

5069 025310 
5070 

5071 

5072 025310 
025310 

5073 025312 

5074 025316 

5075 025322 

5076 025326 

5077 025332 

5078 025336 

5079 025342 

5080 025346 

5081 025350 

5082 025352 

5083 025354 

5084 025356 

5085 025360 
5086 

5087 

5088 025360 
025360 

5089 025362 

5090 025366 

5091 025372 

5092 025376 

5093 025402 

5094 025406 

5095 025412 

5096 025416 



040200 000000 
000000 000000 
042377 100000 
}77777 }77777 
^77777 }77777 
000013 
000004 
104053 
000401 
104054 



104413 
004757 
040177 
040200 
040177 
000000 
000000 
040177 
000017 
000000 
104064 
000401 
104064 



104413 
004737 
034377 
040200 
034377 
000000 
000000 
034377 
000000 
000000 
104064 
000401 
104064 



104413 
004737 
020000 
040300 
020100 
000000 
020100 
000000 
000000 



025504 
}77777 
000000 
m777 
000000 
000000 
^77777 



025504 
}77777 
000000 
}77777 
000000 
000000 
y77777 



025504 
000001 
000000 
000002 
000000 
000001 
000000 



c» • 


UDRD 


J9 • 




H# - 


UflftD 
• wvnv 




• w^nv 




WORD 


7$: 


13 




4 


8S: 


ERROR 




BR 




ERROR 



40200,0 

4^^77,100000 

-1.-1 

-1.-1 



♦53 

9S 

♦54 



;FSRC 

.fRACriONAL RES. 
.INTEGER RES. 
.ERROR FRACTIONAL RES. 
; ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 



9S: 

;MO0F 
GGG11 



TEST WITH EXPONENT OF THE RESULT 





LPERR 




JSR 


1$ 


.WORD 


2S 


.WORD 


3S 


.WORD 


4S 


.WORD 


5S 


.WORD 


6S 


.WORD 


7$ 


17 




0 


8S 


ERROR 




BR 




ERROR 


9S 





PC.nODFSUB 
40l77.-1 

40200,0 
40177.-1 
0.0 
0.0 

46177.-1 



♦64 

9S 

♦64 



.SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.FRACTIONAL RES. 
.INTEGER RES. 
.ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 
:ST 041 TO 046 INTO 246. 



;H0DF TEST WITH EXPONENT OF THE RESULT = -15 
GGG12: 

LPERR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
0 
0 

ERROR 
BR 

ERROR 



IS 
2S 
3S 
4S 
5S 
6S 
7$ 

8$: 



9S: 



PC.HODFSUB 

34577.-1 

40200.0 

34377.-1 

0.0 

0,0 

3i377.-1 



♦64 

9S 

♦64 



.SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.FRACTIONAL RES. 
.INTEGER RES. 
.-ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
:FPS AFTER EXECUTION. 



:mOf TEST WITH EXPONENT OF RESULT = -64. IN ROUND NODE 

GGG13: 



IS 
2S 
3S 
4S 
5S 
6S 
7% 



LPERR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
0 



.SET UP THE LOOP ON ERROR ADDRESS. 
PC.nODFSUB 

20600.1 .AC 

40300.0 ;FSRC 

20100.2 .-FRACTIONAL RES. 
0.0 .-INTEGER RES. 

26100.1 .-ERROR FRACTIONAL RES. 
0,0 .-ERROR INTEGER RES. 

.-FPS BEFORE EXECUTION. 
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SEQUENCE 



5097 
5098 
5099 
5100 
5101 
5102 
5103 
5104 

5105 

5106 

5107 

510« 

5109 

5110 

5111 

5112 

5111 

51U 

5115 

5116 

5117 

5118 

5119 

5120 

5121 

5122 

5123 

5124 

5125 

5126 

5127 

5128 

5129 

5130 

5131 

5132 

5133 

5134 

5135 

5136 

5137 

5138 

5139 

5140 

5141 

5142 

5143 

5144 

5145 

5146 

5147 

5148 

5149 

5150 

5151 

5152 



025420 
025422 
025424 
025426 
025450 



025450 
025450 
025452 
025456 
025442 
025446 
025452 
025456 
025462 
025466 
025470 
025472 
025474 
025476 
025500 



000000 
104065 
000401 
104054 



104415 
004757 
142777 
040200 
140000 
142777 
040000 
042777 
000007 
000010 
104066 
000401 
104067 
000157 



025504 
170000 
000000 
000000 
160000 
000000 
160000 



026072 



8$: 

9t: 

;H0DF 
GGG14 



0 

ERROR 
BR 

ERROR 



♦65 
9$ 
♦ 54 



;FPS AFTER EXECUTION. 

.-ROUND TRUNK., ST 126 INTO ROUND. 



TEST WITH EXPONENT OF RESJ.T = 11 





LPERR 




JSR 


It 


.WORD 


2S 


.WORD 


5S 


.WORD 


4$ 


.WORD 


5S 


.WORD 


6S 


.WORD 


7$ 


7 




10 


8$ 


ERROR 




BR 




ERROR 


9S 


JMP 



PC.W0DFSU6 

14^777.170000 

40200.0 

140000.0 

142777.160000 

40000.0 

42777.160000 



♦66 

9$ 

♦67 

GGGDONE 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.FRACTIONAL RES. 
.INTEGER RES. 
.ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
;F.>S AFTER EXECUTION. 
.•SIGN OF FRACTION. 

.SIGN OF INTEGER. 
;G0 TO NEXT TEST. 



THIS SUBROUTINE. nODFSUB. IS CALLED TO SETUP THE 

OPERANDS, EXECUTE THE NODF INSTRUCTION AND CHECK THE RESULTS. 

ir IS CALLED THUS: 

;AC OPERAND 
:FSRC OPERAND 
.-FRACTIONAL RESULT 
.INTEGER RESULT ^ 
.•ERROR FRACTION RESULT 
.ERROR INTEGER RESULT 
:FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.•FRACTION ERROR 

.-INTEGER ERROR 
.RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE PWOF 

INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 

THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 

THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 

THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 

THEN nODFSUB WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 

IT IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 

THE ANTICIPATED BAD FRACTION. ERFRE5. IF THIS DOESN'T MATCH 

THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 

FAILURE HATCHES THE TRUE RESULT THEN NODFSUB PASSES CONTROL TO THE 

ERROR CALL AT ERR1. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 

NOT CuRRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 

FAILURE. IF THIS OOEN'T HATCH THEN THE ERROR IS REPORTED HERE. 

IF A HATCH IS HADE HOWEVER, HODFSUB WILL RETURN CONTROL TO THE ERROR 

CALL AT ERR2. 



ACARG: 


.WORD 


X,X 


FSRCARG 


:.WORD 


X.X 


FRES: 


.WORD 


X,X 


INTRES: 


.WORD 


X,X 


ERF RES: 


.WORD 


X.X 


ERINTRES:.UORD 


X,X 


FPS8: 


.WORD 


X 


FPSA: 


.WORD 


X 


ERR1: 


ERROR 


♦X 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







CKFP8C0 FPIIF fLTG P*<T 
TEST * 16 - NOOF TEST 



5153 02550A 
51 5A 025506 

5155 025512 

5156 025514 

5157 025516 

5158 025520 

5159 025524 

5160 025526 

5161 025532 

5162 02553A 

5163 025542 

5164 025544 
5165 

5166 025550 
5167 

5168 025552 

5169 025554 

5170 023560 

5171 025562 

5172 025566 

5173 025570 

5174 025574 
5175 

5176 025576 

5177 025600 
5V8 025604 

5179 025610 

5180 025614 

5181 025620 

5182 025624 

5183 025630 

5184 025634 

5185 025642 

5186 025650 

5187 025654 
5188 

5189 025662 

5190 025666 

5191 025672 

5192 025674 

5193 025702 
5194 

5195 025704 

5196 025710 

5197 025714 

5198 025716 

5199 025724 
5200 

5201 025726 

5202 025732 
5203 

5204 025734 

5205 

5206 

5207 025740 

5208 025744 
5^09 025746 
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SEQUENCE 105 



012601 






P10DFSUB 




nov (SP)^«Ri 


012700 

VIC' w 


000200 






nov 


«200,R0 


170100 








LDrPS 


RO 


010100 








nov 


R1,R0 


172««10 








LDD 


(RQ),AC0 


012700 


026062 






nov 


mODPI ,R0 


172510 








LDD 


(RC),AC1 


016100 


000030 






nov 


VA/n4 \ nA 

30(R1 ) ,R0 


170100 






LDFPS 


RO 


012737 


025550 


001236 




nov 


Mt ^ *VMA*> 

#iS,$TnP2 


010100 








nov 


RI.RO 


062700 


000004 






ADD 


«4«R0 


171410 






IS: 


nODF 


(RO),ACO 


1 70204 








STFPS 


R4 


012700 


000200 






nov 


#200, RO 


170100 








LDFPS 


RO 


012700 


026042 






nov 


«nODFT0,R0 


174010 






STD 


ACO,(RO) 


012700 


026052 






nov 


«nODFT1,R0 


174110 






STD 


AC1,(R0) 


010102 








nov 


R1,R2 


010237 


001240 






nov 


R2,$TnP3 


062702 


000004 


/ 




ADD 


«4,R2 


010237 


001242 






nov 


R2,$TnP4 


062702 


000004 






ADD 


#4,R2 


010237 


001244 






nov 


R2,$TnP5 


062702 


000004 






ADD 


#4,R2 


010237 


001246 






nov 


RZ.sinPo 


012737 


026042 


001250 




nov 


«nODFT0,STnP7 


012737 


026052 


001252 




nov 


moDFTi.srnpio 


010437 


001254 






nov 


R4,STnP11 


016137 


000032 


001256 




nov 


32(R1),»TnP12 


012702 


026042 


» 




nov 




026112 


000010 






CMP 


10(R1),(R2) 


001022 








BNE 


10S 


026162 


000012 


000002 




cnp 


12(R1),2<R2) 


001016 








BNE 


10$ 


012702 


026052 


1 




nov 


fnODr 11 .Hi 


026112 


000014 




CMP 


14CR1),(R2) 


001026 








BNE 


15$ 


026162 


000016 


/\ A AAA ^ 

000002 




CMP 


16(R1 / ,c\RcJ 


001022 








BNE 


15$ 


026104 


000032 






CMP 


32(R1),R4 


001034 








BNE 


20$ 


000161 


000042 




9S: 


-MP 


42(R1) 








;fRACT10»^L ERROR. 


026112 


000020 




10S: 


CMP 


20(R1),{R2) 


001010 








BNE 


11$ 


026162 


000022 


000002 




cnp 


22(R1),2(R2) 



.-GET A POINTER TO THE ARGUMENTS 
SET FD nODE. 

SET UP ACO 

PUT A BACKROUND PATTERN INTO AC1. 
SET UP THE FPS. 

COnPUTE THE ADDRESS OF THE FSRC. 

EXECUTE THE TEST INSTRUC lOK. 

GET THE FPS. 
SET FD nODE. 

GET THE FRACTIONAL RESULT. 
GET THE INTEGER RESULT. 

SAVE THE DATA IN CASE OF ERROR. 



.•CHECK THE FRACTIONAL RESULT. 
.•BRANCH IF INCORRECT. 

.•CHECK THE INTEGER RESULT. 
.-BRANCH IF INCORRECT. 



.•CHECK THE FPS. 
.BRANCH IF INCORRECT. 



.•RETURN. 



:UAS THE ERROR ANTICIPATED? 
.BRANCH IF NOT ANTICIPATED. 



CKfPSCO FP11F FLTG PNT PRT B 
TEST # 16 - HOOF TEST 



5210 025754 

5211 025756 

5212 025760 
5213 

5214 025764 
5215 

5216 025766 

5217 02576. 

5218 025 77l 
5219 

5220 

5221 025772 

5222 025776 
5233 026000 

5224 026006 

5225 026010 

5226 026012 
5227 

5228 026016 
5229 

5230 026020 

5231 026020 

5232 026022 
5233 

5234 

5235 026024 

5236 026030 

5237 026036 

5238 026040 
5239 

5240 026042 
5241 

5242 026052 
5243 

5244 026062 
5245 

5246 026072 
026072 



5247 
52<.8 
5249 
5257 
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SEQUENCE 



001004 
010102 
062702 


000034 




BNE 

nov 

ADD 


11$ 
R1,R2 
#34, R2 


000112 






JHP 


(R2) 


104053 
000761 






11$: 

12S: ERROR 
BR 


♦53 
9$ 


026112 
001010 
020162 
001004 
010102 
062702 


000024 
000026 

000040 


0C0002 


.INTEGER ERROR. 
15S: CMP 

BNE 

CHP 

BNE 

MOV 

ADD 


24(R1).(R2) 
16$ 

26(R1),2(R2) 
16$ 
R1 .R2 
«46,R2 


000112 






JHP 


(R2) 


104054 
000744 






16S: 

17$: ERROR 
BR 


♦54 
9$ 


010437 
016137 
104055 
000735 


001254 
000032 


001256 


:FPS INCORRECT. 

^0$: nov 
nov 

21$: ERROR 
BR 


R4,$TnP11 

32(R1),$TnP12 

♦55 

9$ 


000000 


000000 


000000 


nODFTO: .WORD 


0,0,0,0 


000000 


000000 


000000 


nOOFTI: .WORD 


0,0,0,0 


mm 


mm 


mm 


nODPI : .WORD 


-1,-1.-1.-1 



104412 



6GGD0NE: 



RSETUP 



THE ERROR WAS ANTICIPATED SO 
RETURN TO THE ERROR REPORT AT THE 
CALLING ROUTINE. 



;THE ERROR WAS NOT ANTICIPATED SO 
: REPORT THE INCORRECT FRACTION HERE. 



;UAS THIS ERROR ANTICIPATED? 
;BRANCH IF NOT. 



THE ERROR WAS ANTICIAPTED SO RETURN 
TO THE ERROR REPORT IN THE CALLING 
ROUTINE. 



;THE ERROR WAS NOT ANTICIPATED SO REPORT 
:THE INTEGER FAILURE HERE. 



.•REPORT INCORRECT FPS. 



60 INITIALIZE THE FPS AND STACK: AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



CKFPBCO FP11F FLTG PNT PRT B 
TEST f 17 - MODO TEST 

5258 



026074 000004 



5259 
5260 

5261 026076 
026076 

5262 026100 

5263 026104 

5264 026114 

5265 026124 

5266 026134 

5267 026144 

5268 026154 

5269 026164 

5270 026166 

5271 026170 

5272 026172 

5273 026174 

5274 026176 
5275 

5276 

5277 026176 
026176 

5278 026200 

5279 026204 

5280 026210 

5281 026214 

5282 026224 

5283 026234 

5284 026244 

5285 026250 

5286 026254 

5287 026264 

5288 026266 

5289 026270 

5290 026272 

5291 026274 

5292 026276 
5293 

5294 

5295 026276 
026276 

5296 026300 

5297 026304 

5298 026314 

5299 026320 

5300 026324 

5301 026334 
>302 026344 



104413 
004737 
000000 
072727 
072727 
000000 
000000 

^777^ 



0 9 
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S8TTL TEST t 17 - NODO TEST 



SEQUENCE 10/ 



•TEST 17 



HODD TEST 



•THIS IS A TEST OF THE «0DD INSTRUCTION. IT HAKES USE OF A SUBROUTINE 
*T0 SET UP THE ARGUMENTS, EXECUTE THE INSTRUCTION AND CHECK THE 
•RESULTS. 



TST17: SCOPE 



.nODD 

HHH1: 



WITH (FSRC=AC=0) 



104413 








LPEFR 


004737 


027602 






JSR 


000000 


000000 


000000 


1$: 


.yORD 


000000 


000000 


000000 


2$: 


.WORD 


000000 


000000 


000000 


3$; 


.WORD 


000000 


000000 


000000 


4S: 


.WORD 


000000 


000000 


000000 


5$: 


.WORD 


000000 


000000 


\77777 


6$: 


.WORD 


000200 






7$: 


200 


000204 






8$: 


204 


104070 






ERROR 


000401 








BR 


104074 








ERROR 



9$: 

:noDD 

HHH2 



PC.MODDSUB 

0,6,0,0 

0.0,0.0 
0,0.0.0 
0.0,0,0 
0.0.0,0 
0,0,-1,-1 



♦70 

9$ 

♦74 



TEST WITH FSRC=0 



104413 








LPERR 


004737 


027602 






JSR 


012345 


067012 




IS: 


.WORD 


034567 


012345 






.WORD 


000000 


000000 


000000 


2$: 


.WORD 


000000 


000000 


000000 


3$: 


.WORD 


000000 


000000 


000000 


4S: 


.WORD 


012345 


067012 




5$: 


.WORD 


034567 


012345 






.WORD 


\77777 


-[77777 


\77777 


6S: 


.WORD 


000213 






7$: 


213 


000204 








204 


104075 






8$: 


ERROR 


000401 








BR 


104076 








ERROR 



9S: 



PC.nODDSUB 

015345-67012 

34567.612345 

0,0.0,0 

0,0.0,0 

0,0-0.0 

0l254$.67012 

34567,612345 

-1.-1.-1,-1 



♦75 

9$ 

♦76 



027602 
000000 
y27272 
y27272 
000000 
000000 
1 77777 



000000 



000000 
000000 
}77777 



:M0DD TEST WITH (AC=0) 
HHH3: 

LPERR 

JSR PC.nODDSUB 

1$: .WORD 0-O.Q.O 

2$: .WORD 7i7Z7,y27272 

.WORD 72727 A27272 

It: .WORD 0.0.0,0 

4$: .WORD 0-0,0,0 

5$: .WORD -1,-1,-1,-1 



SET UP THE LOOP ON ERROR ADDRESS. 

AC 
FSRC 

FRACTIONAL RES. 
INTEGER RES. 
ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 



;ST 231 TO 142 INTO 143 

;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

.•FRACTIONAL RES. 

.-INTEGER RES. 

.'ERROR FRACTIONAL RES. 

.ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.-STORE DOUBLE ZERO 

;AC V 1 <= ZERO ST 143 

.-SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.-FRACTIONAL RES. 

.INTEGER RES. 

.-ERROR FRACTIONAL RES. 



CKFPBCO FPIIf FLTG PNT PRT B 
TEST # 17 - HOOD TEST 
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9-1 



SEQUENCE 108 



5303 02635A 
530A 02636A 

5305 026366 

5306 026370 

5307 026372 

5308 026374 

5309 026376 
5310 

5311 

5312 026376 
026376 

5313 026AOO 

5314 026404 

5315 026410 

5316 026414 

5317 026424 

5318 026434 

5319 026444 

5320 026450 

5321 026454 

5322 026464 

5323 026466 

5324 026470 

5325 026472 

5326 026474 

5327 026476 
5328 

5329 

5330 026476 
026476 

5331 026500 

5332 026504 

5333 026514 

5334 026520 

5335 026524 

5336 026534 

5337 026540 

5338 026544 

5339 026554 

5340 026560 

5341 026564 

5342 026566 

5343 026570 

5344 026572 

5345 026574 

5346 026576 
5347 

5348 

5349 026576 
026576 

5350 026600 

5351 026604 

5352 026614 

5353 026624 

5354 026634 

5355 026644 

5356 026654 



M7777 
000213 
000204 
104070 
000401 
104071 



104413 
004737 
056252 
125252 
040300 
000000 
056377 
000000 
125252 
056377 
000213 
000204 
104077 
000401 
104077 



m777 }77777 



6$: 
7$: 

8$: 



9$: 



.yORD 

213 
204 
ERROR 
BR 

ERROR 



-l.-l.-l.-l 



♦70 
9$ 

♦71 



; ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 



:MODD 
HHH4: 



TEST WITH EXPONENT OF THE RESULT = 57 









LPERR 


027602 






JSR 


125252 




1$: 


.WORD 


125250 






.WORD 


000000 


000000 


2$: 


.WORD 


000000 


000000 


3$: 


.WORD 


}77777 


}77777 


4$: 


.WORD 


000000 




5$: 


.WORD 


125252 






.WORD 


}77777 


m777 


6$: 


.WORD 




7$: 


213 
204 












8$: 


ERROR 
BR 

ERROR 



9$: 

.-nODD 

HHH5: 



PC.MODDSUB 

56^52.125252 

12525^-125250 

40300,6,0,0 

O.Q.0,0 

563^7.-1,-1,-4 

0,0 

1^5252,125252 
56377,-1.-1,-1 



♦77 

9$ 

♦77 



:SET UP THE LOOP ON ERROR ADDRESS. 
;AC 

;FSRC 

.•FRACTIONAL RES. 

.•INTEGER RES. 

.•ERROR FRACTIONAL RES. 

.-ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;ST 526 TO 134 INTO 135 



TEST WITH EXPONENT OF THE RESULT = 79 



104413 








LPERR 


004737 


027602 






JSR 


140240 


000000 


000000 


1$: 


.WORD 


063714 


146314 




2$: 


.WORD 


133572 


167737 






.WORD 


000000 


000000 


000000 


3$: 


.WORD 


163777 


y77777 




4$: 


.WORD 


162531 


125726 






.WORD 


}77777 


y77777 


\77777 


5$: 


.WORD 


063777 


}77777 




6$: 


.WORD 


162531 


125726 






.WORD 


000210 






7$: 


210 


000204 








204 


104070 






8$: 


ERROR 


0C0401 








BR 


104100 








ERROR 



9$: 

;nODD 
HHH6: 



PC.nODOSUB 
146240-0.0,0 
63714-l463l4 
13357^.167737 

163M,-1 
162531,125726 

-1,-1,-1,-1 

63^77,-1 

162531,125726 



♦70 

9S 

♦100 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.•FRACTIONAL RES. 
.•INTEGER RES. 

.•ERROR FRACTIONAL RES. 
.•ERROR INTEGER RES. 

:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 



;ST 526 BAD SIGN 



TEST WITH EXPONENT OF THE RESULT = 57 



104413 








LPERR 


004737 


027602 






JSR 


056200 


000000 


000000 


1$: 


.WORD 


040340 


000000 


oocooo 


2S: 


.WORD 


000000 


000000 


000000 


3$: 


.WORD 


056340 


000000 


000000 


4$: 


.WORD 


040000 


000000 


000000 


5$: 


.WORD 


056340 


000000 


000000 


6$: 


.WORD 



PC.nOODSUB 

56^00.0,0,1 

40340,0.0,0 

0,0,0,0 

563i0, 0,0.1 

40000,0.0.0 

56340,0,0,1 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.FRACTIONAL RES. 
.INTEGER RES. 
.•ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 



CKFPBCO FP11F FLTG PNT PRT B 
TEST # 17 - NODD TEST 
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SEQUENCE 109 



5357 026664 

5358 026666 

5359 026670 
5360 

53t>1 026672 

5362 026674 

5363 026676 
536A 

5365 

5366 026676 
026676 

5367 026700 

5368 026704 

5369 026714 

5370 026724 

5371 026734 

5372 026744 

5373 026754 

5374 026764 

5375 026766 

5376 026770 
5377 

5378 026772 

5379 026774 

5380 026776 
5381 

5382 

5383 026776 
026776 

5384 027000 

5385 027004 

5386 027014 

5387 027024 

5388 027034 

5389 027044 

5390 027054 

5391 027064 

5392 027066 

5393 027070 

5394 027072 

5395 027074 

5396 027076 
5397 

5398 

5399 027076 
027076 

5400 027100 

5401 027104 

5402 027114 

5403 027120 

5404 027124 

5405 027134 

5406 027140 

5407 027144 

5408 027154 

5409 027164 

5410 027166 



000213 
000204 
104101 

000401 
104101 



104413 
004737 
056000 
040340 
040100 
056140 
000000 
056140 
000213 
000200 
104102 

000401 
104102 



7$: 
8S: 

9S: 



213 
204 
ERROR 

BR 

ERROR 



♦101 

9$ 

♦101 



FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
CONSTANT BAD (NOT 56) 
OR ST 525 TO 050 INTO 150 



;HO00 TEST WITH 
HHH7; 



027602 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 
000000 
000000 



IS 
2$ 
3$ 
4$ 
5$ 
6$ 
7$ 

8S: 



9S: 

.-noDD 

HHH8: 



LPERR 

JSR 

.yORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

213 

200 

ERROR 

BR 

ERROR 



EXPONENT OF THE RESULT = 56 

:SET UP THE LOOP ON ERROR ADDRESS. 



PC.H0DDSU6 
56600,0,0.1 
40340,0,0,0 
40100,0,0,0 
56140,0,0,1 
0,0,0,0 
56140,0,0,1 



♦102 



9$ 

♦102 



AC 

FSRC 

FRACTIONAL RES. 
INTEGER RES. 
ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
BAD CONSTANT (NOT 56) 
ST 525 TO 150 INTO 050 



OR 



TEST WITH EXPONENT OF THE RESULT = 36 



104413 








LPERR 


004737 


027602 






JSR 


051177 


mm 


mm 


IS. 


.WORD 


040200 


000000 


000000 


2S. 


.WORD 


040177 


177760 


000000 


3S. 


.WORD 


051177 


mm 


177760 


4S 


.WORD 


mm 


mm 


mm 


5S. 


.WORD 


mm 


mm 


mm 


6S 


.WORD 


000217 






7S 


217 


000200 








200 


104070 






8S 


ERROR 


000401 








BR 


104071 








ERROR 



9S: 



PC.nODDSUB 

51177,-1.-1,-1 

40200,0.6,0 

40177,-20,0,0 

51177,-1,-26,0 

-1,-1,-1,-1 

-1,-1,-1,-1 



♦70 

9S 

♦71 



:SET UP THE LOOP ON CRROR ADDRESS. 
AC 

FSRC 

FRACTIONAL RES. 
INTEGER RES. 
ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 



;nODD TEST WITH EXPONENT OF THE RESULT = 30 
HHH9: 



104413 








LPERR 


004737 


027602 






JSR 


040200 


000000 


000000 


IS: 


.WORD 


047577 


mm 




2S: 


.WORD 


176000 


000001 






.WORD 


031600 


000000 


000000 


3S: 


.WORD 


047577 


mm 




4S: 


.WORD 


176000 


000000 






.WORD 


000000 


000000 


000000 


5S: 


.WORD 


047577 


mm 


m777 


6S: 


.WORD 


000200 






7S: 


200 


000200 








200 



PC.nODDSUB 

40^00,0.0,0 

47577.-f 

176006.1 

31600,6.0,0 

47577.-1 

176006.0 

0,0,0.6 

4^5^7,-1,-1,-1 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 



.•FRACTIONAL RES. 
.•INTEGER RES. 

ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 
FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 



C<FPBCO FP11F FLTG PNT PRT B 
TEST # 17 - NODD TEST 



G 9 

MACRO H1 113 2J-0CT-81 08:27 PAGE 29-3 



SEQUENCE 110 



5A11 027170 
5A12 

5413 027172 

5414 027174 
5415 

5416 027176 

5417 

5418 

5419 027176 
027176 

5420 027200 

5421 027204 

5422 027210 

5423 027214 

5424 027224 

5425 027234 

5426 027240 
^>427 027244 

5428 027254 

5429 027264 

5430 027266 

5431 027270 

5432 027272 

5433 027274 

5434 027276 
5435 

5436 

5437 027276 
027276 

5438 027300 

5439 027304 

5440 027314 

5441 027320 

5442 027324 

5443 027330 

5444 027334 

5445 027344 

5446 027354 

5447 027364 

5448 027366 

5449 027370 

5450 027372 

5451 027374 

5452 027376 
5453 

5454 

5455 027376 
027J76 

5456 027400 

5457 027404 

5458 027410 

5459 027414 

5460 027424 

5461 027430 

5462 027434 

5463 027444 

5464 027454 



104103 

000401 
104104 



8$: 



9$: 



ERROR ♦I 03 



BR 

ERROR 



9S 

♦ 104 



.(NORMALIZE) ST 532 TO 122 
.-INTO NORM. 

;AC V 1 <= X14 

;0R ST 733 TO 156 INTO 157. 



:M0DD 
HHH10 



TEST WITH EXPONENT OF THE RESULT = 31 



1 \JHH 1 J 








LPFRR 


004737 


027602 






JSR 


Oi.7777 


}77777 




IS: 


.WORD 


U7000 


000000 






.WORD 


040200 


000000 


000000 


2S: 


.WORD 


000000 


000000 


000000 


3$: 


.WORD 


0^7777 


}77777 




4$: 


.WORD 


177000 


000000 






.WORD 


000000 


000000 


177000 


5$: 


.WORD 


}77777 


}?7777 


)77777 


6S: 


.WORD 


000213 






7$: 


213 


000204 








204 


104105 






8S: 


ERROR 


000401 








BR 


104071 








ERROR 



PC.MODDSUB 

47^77.-1 

177006-0 

40200,6,0,0 

0,0.0,0 

4^777.-1 

177006.0 

0,0.17^000,0 

-1.-1.-1,-1 



♦105 

9S 

♦71 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

.•FRACTIONAL RES. 
.•INTEGER RES. 

:ERROR FRACTIONAL RES. 
.•ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.-(BUT FD) STORE XI 0 



9$: 

:M0DD 
HHH11 



TEST WITH EXPONENT OF THE RESULT 



104413 








LPERR 
JSR 


004737 


027602 






040200 


000000 


000000 


If: 


.WORD 


040177 


072727 




2$: 


.WORD 


} 27272 


072727 






.WORD 


040177 


072727 




3$: 


.WORD 


}27272 


072727 






.WORD 


000000 


000000 


000000 


4$: 


.WORD 


}77777 


}77777 


y77777 


5$: 


.WORD 


000000 


000000 


}77777 


6$: 


.WORD 


000200 






7$: 


200 


000200 








200 


104070 






8$: 


ERROR 


000401 








BR 


104106 








ERROR 



9$: 

;MODD 
HHH12 



PC.MODDSUB 

40^00,0.0.0 

40177,7^7^7 

y2727i. 72727 

40177.^2727 

y2727ij2727 

0,0,0.6 

-1,-1,-1,-1 

0,6,-1,-1 



♦70 
9S 
♦ 106 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.FRACTIONAL RES. 

.INTEGER RES. 
;ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 

;ST 246 TO 126 INTO 127 (BUT FD) 



TEST WITH EXPONENT OF THE RESULT 



•115 



104413 








LPERR 


004737 


027602 






JSR 


003377 


\77777 




1$: 


.WORD 


}77777 


052525 






.WORD 


040200 


000000 


000000 


2$: 


.WORD 


003377 


\77777 




3$: 


.WORD 


}77777 


052525 






.WORD 


000000 
}77777 
000000 


000000 


000000 


4S: 


.WORD 


y77777 


y77777 


5$: 


.WORD 


000000 


y77777 


6$: 


.WORD 



PC.MODDSUB 

33^7.-1 
-1.5^525 

-1.5 to 

0,6.0.0 , 
0,6,-1.-1 



;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 

;FSRC 

.FRACTIONAL RES. 

.•INTEGER RES. 

.•ERROR FRACTIONAL RES. 

.ERROR INTEGER RES. 



CKFPeCO FP11F FLTG PNT PRT B 
TEST # 17 - HOOD TEST 



H 9 

NACRO HI 113 20-OCT-81 08:27 PACE 29-4 



SEQUENCE 



5465 027464 

5466 027466 

5467 027470 

5468 027472 

5469 027474 

5470 027476 
5471 

5472 

5475 027476 
027476 

5474 027500 
54/5 027504 

5476 027514 

5477 027524 

5478 027534 

5479 027544 

5480 027554 

5481 027564 

5482 027566 

5483 027570 

5484 027572 

5485 027574 

5486 027576 
5487 

5488 

5489 

5490 

5491 

5492 

5493 

5494 

5495 

5496 

5497 

5498 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 



000200 
000200 
104070 
000401 
104107 



104413 
004737 
04030r 
0202C'J 

o:c:oo 

000000 
000000 
^77777 
000200 
000200 
104110 
000401 
104071 
000137 



027602 
000000 
OOCOOO 
000000 
000000 
000000 
\77777 



030200 



000000 
000000 
000000 
000000 

}77777 
^77777 



7%: 
8S: 



200 
200 
ERROR 
BR 

ERROR 



♦70 

9S 

♦107 



9S 






;n0DD 


TEST WITH 


HHH13: 








LPERR 






JSR 


1S 




.WORD 


2S 




.WORD 


3S 




.WORD 


4S 




.WORD 


5$ 




.WORD 


6$ 




.WORD 


7$ 




200 






200 


8S: 


ERROR 






BR 






ERROR 


9S 




JHP 



;fPS BEFORE EXECUTION. 
;fPS AFTER EXECUTION. 



;ST 446 TO 126 INTO 12^ (BUT FD) 



TEST WITH EXPONENT OF THE RESULT = -63, IN ROUND RODE. 

:SET UP THE LOOP ON ERROR ADDRESS. 

PC.M0DDSU6 
40300.0.0,0 ;AC 
20200.0.0.1 ;fSRC 
20300.0,0,2 .-FRACTIONAL RES. 
0,0,0,0 : INTEGER RES. 

0.0,-1.-1 .-ERROR FRACTIONAL RES. 

-1,-1,-1,-1 .-ERROR INTEGER RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
.-ST 127 INTO RND/TR 



♦110 
9» 

*/] 

HHHDONE 



;60 TO THE NEXT TEST. 



THIS SUBROUTINE, HODDSUB. IS CALLED TO SETUP THE 

OPERANDS. EXECUTE THE NODD INSTRUCTION AND CHECK THE RESULTS. 

IT IS CALLED THUS: 

:AC OPERAND 
,'FSRC OPERAND 
:FRACTiaPIML RESULT 
; INTEGER RESULT 
.ERROR FRACTION RESULT 
: ERROR INTEGER RESULT 
:FPS BEFORE EXECUTION 
;FPS AFTER EXECUTION 
.■FRACTION ERROR 

; INTEGER ERROR 
.'RETURN ADDRESS 

THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGlf€NT). THE MOOD 

INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 

THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 

THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 

THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 

THEN N0DDSU8 WILL RETURN TO CONT. IF THE FPS UAS INCORRECT 

IT IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 

THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T HATCH 

THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 

FAILURE HATCHES THE TRUE RESULT THEN HODDSUB PASSES CONTROL TO THE 

ERROR CALL AT ERR1 . LIKEWISE IF THE INTEGER PART OF THE RESULT IS 

NOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 

FAILURE. IF THIS DOEN'T HATCH THEN THE ERROR IS REPORTED HERE. 

IF A MATCH IS MADE HOWEVER. HODDSUB WILL RETURN CONTROL TO THE ERROR 

CALL AT ERR2. 



ACARG: 


.WORD 


X ^ X # X f X 


FSRCARG: 


.WORD 


X # X # X # X 


FRES: 


.WORD 


X ^ X y X ^ X 


INTRES: 


.WORD 


X ^ X / X ^ X 


ERFRES: 


.WORD 


X ^ X ^ X ^ X 


ERINTRES 


:.WORD 


X #X # X ^ X 


fPSB: 


.WORD 


X 


FPSA: 


.WORD 


X 


ERR1 : 


ERROR 


♦X 




BR 


CONT 


ERR2: 


ERROR 


♦X 


CONT: 







CKFP8C0 FPIIF FLTG PNT PRT 8 
TEST # 17 - KOOD TfcST 



5521 027602 

5522 027604 

5523 027610 

5524 027612 

5525 0276H 

5526 027616 

5527 027622 

5528 027624 

5529 027630 

5530 027632 

5531 027640 

5532 027642 
5533 

5534 027646 
5535 

5536 027650 

5537 027652 

5538 027656 

5539 027660 

5540 027664 

5541 027666 

5542 027672 
5543 

5544 027674 

5545 027676 

5546 027702 

5547 027706 

5548 027712 

5549 027716 

5550 027722 

5551 027726 

5552 027732 

5553 027740 

5554 027746 

5555 027754 
5556 

5557 027760 

5558 027764 

5559 027766 

5560 027772 

5561 027776 

5562 030000 

5563 030002 
5564 

5565 030004 

5566 030010 

5567 030012 

5568 030016 

5569 030022 

5570 030024 

5571 030026 
5572 

5573 

5574 030030 

5575 030034 
5576 

5577 030036 



NACRO H1 113 20-OCT-81 



012601 






nODDSUB 




012700 


000200 






HOV 


170100 








LDFPS 


010100 








HOV 


172410 








LDD 


012700 


026062 






HOV 


172510 








LDD 


016100 


000060 






mv 


170100 








LDFPS 


012737 


027646 


001236 




MOV 


010100 








NOV 


062700 


000010 






ADD 


171410 






IS: 


NODD 


1 70204 








SlrPS 


012700 


000200 






MOV 


170100 








LDFPS 


01 2700 


030160 






MOV 


174010 








^ T A 

SID 


01 2700 


A9A4 9A 

030170 






MOV 


174110 








STD 


010102 








MOV 


010237 


AA4 ^/ A 

001240 






MOV 


062702 


AAAA 4 A 

000010 






ADD 


010237 


AA4 1/ ^ 

001242 






MOV 


062702 


AAAA4 A 

000010 






ADD 


010237 


AA4 i 

001244 






MOV 


062702 


000010 






ADD 


010237 


001246 






MOV 


012737 


A7A4 ^ A 

030160 


AA4 ^CA 

001250 




MOV 


012737 


A9A4 ^A 

030170 


AA4 If*) 

001252 




PWV 


016137 


AAAA^ ^ 

000062 


001256 




MOV 


A4 A i 99 

010437 


AA4 / 

001254 






MOV 


A4 '\9A'% 

012702 


A9 A4 £. A 

030160 






MAk< 

MOV 


010103 








MOV 


062703 


000020 






ADD 


A4 ^9Af 

012705 


AAAAA / 

000004 






MOV 


022223 






2»: 


CMP 


AA4 A'^A 

001020 








BNE 


A99f A9 

077503 








r AA 

SOB 


A4 ^9A^ 

012702 


0301 70 






MOV 


010103 








MOV 


A^ ^9AV 

062703 


AAAA7A 

000030 






AAA 

ADD 


012705 


000004 






MOV 


022223 








CMP 


001026 








BNE 


077503 








SOB 


026104 


000062 






CMP 


001042 








BNE 


000161 


000072 




9$- 


JHP 



08:27 PAGE J9-5 



SEQUENCE 112 



MOV (SP)».R1 

#200, RO 

RO 

Rl-RO 

(R0),ACO 

«M0DP1,R0 

(R0),AC1 

60(R1),R0 

RO 

«1$,$TMP2 

Rl.RO 
«10,RO 

(RO)«ACO 

R4 

#200, RO 
RO 

#MODDrO,RO 
ACO«(RO} 
#nODDT1,RO 
AC1,(R0) 

Rl .R2 

R2.$TMP3 

#l6«R2 

R2.$TMP4 

#l6.R2 

R2,$TMP5 

#l6.R2 

R2JTMP6 

#n0DDT0«$TMP7 

#«0DDT1.fTMP10 

62(R1),iTHP12 

R4.tTHP11 

#M0DDT0«R2 
RKR3 
#26, R3 
#4.R5 

(R2)*.(R3)* 

10s 

R5,2S 

#nODDT1,R2 
R1.R3 
#36, R3 
#4-R5 

<R?)*,(R3)* 

15$ 

R5,3S 



;6ET A POINTER TO THE ARGUMENTS 
SET FD MODE. 

SET UP ACQ 

PUT A BACKROUND PATTcRN INTO ACl . 
SET UP THE fPS. 

COMPUTE THE ADDRESS OF THE FSRC. 

EXECUTE THE TEST INSTRUCTION. 

GET THE FPS. 
SET FD MODE. 

GET THE FRACTIONAL RESULT. 
GET THE INTEGER RESULT. 

SAVE THE DATA IN CASE OF ERROR. 



.•CHECK THE FRACTIONAL RESULT. 



.BRANCH IF INCORRECT. 



.-CHECK THE INTEGER RESULT. 



.•BRANCH IF INCORRECT. 



62(R1).R4 .-CHECK THE FPS. 

20$ .-BRANCH IF INCO?{RECT. 



72(R1) 



.RETURN. 



CKFPeCO tPIU FLTG PNT 
TEST # 17 - MODO TEST 



PftT B MACRO HI 113 20-OCT-81 08:27 PAGE ^9-6 



SEQUENCE 



5578 
5579 

5580 030042 

5581 0300A6 

5582 030050 

5583 030054 

5584 030060 

5585 030062 

5586 030064 
5567 030066 
5588 0300/0 
5589 

5590 030074 
5591 

5592 030076 

5593 030076 

5594 030100 
5595 

5596 

5597 030102 

5598 030106 

5599 030110 

5600 030114 

5601 030120 

5602 030122 

5603 030124 

5604 030126 

5605 030130 
5606 

5607 030134 
5608 

5609 030136 

5610 030136 
030140 



012702 
010103 
062703 
012705 
022223 
001005 
077503 
010102 
062702 

000112 



104070 
000756 



012702 
010103 
062703 
012705 
022223 
001005 
077503 
010102 
062702 

000112 



104071 
000736 



5611 
5612 
5613 

5614 030142 010437 

5615 030146 016137 

5616 030154 104072 

5617 030156 000727 
5618 

5619 030160 000000 
5620 

5621 030170 000000 
5622 

5623 030200 

030200 104412 



5624 
5625 
5626 
5634 
5635 



030^60 

000040 
000004 



000064 



FRACTIONAL ERROR. 



^0$ 



50S: 



030170 

000050 
000004 



000070 



MOV 
NOV 
ADO 

nov 

CMP 
BNE 

soe 

HOV 
ADD 

JMP 



11$: 

12$: ERROR 
BR 

.•INTEGER ERROR. 
15$: NOV 
NOV 
ADD 
NOV 
CNP 
BNE 
SOB 
NOV 
ADD 

JNP 



60$: 



16$: 
17$: 



ERROR 
BR 



«NODDT0,R2 
R1.R3 
#46, R3 
#4-R5 

(R2)*.(R3)* 
11$ 

R5,50$ 
R1.R2 
#64. R2 

(R2} 



♦70 
9$ 



«flOD0T1,R2 
R1.R3 
f56,R3 
f4.R5 

(r5)*.(R3)* 
17$ 

R5.60$ 

R1,R2 

f76.R2 

(R2) 



♦71 
9$ 



001254 
000062 



000000 
000000 



001256 

000000 
000000 



;FPS INCORRECT. 
20$: NOV 
NOV 

21$: ERROR 
BR 

.WORD 
.WORD 

RSETUP 



NODDTO: 
NODDTl : 
HHHDONE : 



R4,$TNP11 

62(R1).$»«?'2 

♦72 

9$ 

0,0,0.0 
0.0,0,0 



.-WAS THE FRACTIONAL ERROR ANTICIPATED? 



.•BRANCH IF NOT ANTICIPATED. 

;THE ERROR WAS ANTICIPATED SO 
.RETURN TO THE ERROR REPORT AT THE 
.-CALLING ROUTINE. 



;THE ERROR WAS NOT ANTICIPATED SO 
.-REPORT THE INCORRECT FRACTION HERE. 



;yAS THE INTEGER ERROR ANTICIPATED? 



.-BRANCH IF NOT ANTICIPATED. 

.-THE ERROR WAS ANTICIAPTED SO RETURN 
;T0 THE ERROR REPORT IN THE CALLING 
.-ROUTINE. 



.-THE ERROR WAS NOT ANTICIPATED SO REPORT 
:THE INTEGER FAILURE HERE. 



.REPORT INCORRECT FPS. 



;G0 INITJALIZF THE FPS AND STACK; AND 
.-SEE IF THE USER HAS EXPRESSED 
.THE DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CONSOLE SWITCH REGISTER (HAS 
.THE USER TYPED CONTROL G?). 



;TEST TITLE :UNOER/OVERFLOW. USING NODF WITH TRAPS DISABLED 



CKFPBCO FPllF FLTG PNT PRT B 
TEST » 20 ' SEE COHHENT ABOVE 

5636 



HACRO mi 13 20-OCT-81 08:27 PAGE 
FOR TEST TITLE 



K 

30 



SEQUENCE 1U 





030202 


000004 




5637 








5638 








5639 


030204 








030204 


104413 




56A0 


030206 


004737 


030532 


56A1 


030212 


020123 


045676 


56A2 


030216 


020200 


000000 


56A3 


030222 


000123 


045676 


56^4 


C30226 


000000 


000000 


56A5 


030232 


M7777 


^77777 


5646 


030236 


y77777 


y77777 


5647 


030242 


042000 




5648 


030244 


142004 




5649 


030246 


000012 




5650 


030250 


104170 




5651 


030252 


000401 




5652 


030254 


104171 




5653 


030256 






5654 








5655 








5656 


030256 








030256 


104413 




5657 


030260 


m7Z7 


030532 


5658 


030264 


010200 


000000 


S659 


030270 


010000 


000000 


5660 


030274 


000000 


000000 


5661 


030300 


000000 


000000 


5662 


030304 


}77777 


}77777 


5663 


030310 


\77777 


\77777 


5664 


030314 


005013 




5665 


030316 


005004 




5666 


030320 


000012 




5667 


030322 


000240 




5668 


030324 


000401 




5669 


030326 


104171 




5670 


030330 






5671 








5672 








5673 


030330 








030330 


104413 




5674 


030332 


00^757 


030532 


5675 


030336 


060052 


125252 


5676 


030342 


060200 


000000 


5677 


030346 


000000 


000000 


5678 


030352 


000052 


125252 


5679 


030356 


000000 


000000 


5680 


030362 


000000 


000000 



.s8ttl test # 20 - see cohhent above for test title 

[West 20 see cohhent above for test title 

••this is a test of the hodf overflow and underflow conditions. it pukes 
:*use of a subroutine to setup the operands, execute the modf instruction 
;*and check the results. traps are disabled during this test. 



TST20: SCOPE 

.UNDERFLOW TEST, 
"11 : 

LPERR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
42000 
142004 
12 

ERROR 
BR 

ERROR 



WITH EXPONENT OF THE RESULT s -129, FlU = 1, FID 
;SET UP THE LOOP ON ERROR ADDRESS. 



= 1 



IS 
2S 
3S 
4S 
5S 
6S 
7$ 



8$: 



9$: 

.•UNDERFLOW EXP 

mn2 



PCWDFOV 
20123.45676 
20200.0 
123.45676 
0,0 
-1.-1 
-1.-1 



♦170 
9$ 

♦ 171 



;AC 
;FSRC 

.FRACTIONAL RES. 
.•INTEGER RES. 
.ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 

:FEC INCORRECT. UNDERFLOW. 
;AC V 1 (2.3) <= ZERO, ST 126. 





LPERR 






JSR 


PC.FWDFOV 


1$ 


.WORD 


10200.0 


2$ 


.WORD 


10000.0 


3$ 


.WORD 


0.0 


4$ 


.WORD 


0.0 


5$ 


.WORD 


-1.-1 


6$ 


.WORD 


-1.-1 


7$ 


5013 






5004 






12 




8$ 


NOP 






BR 


9$ 




ERROR 


♦171 



9$: 

.•OVERFLOW TEST 

mn3: 





LPERR 




JSR 


IS: 


.WORD 


2$: 


.WORD 


3$: 


.WORD 


4$: 


.WORD 


5$: 


.WORD 


6$: 


.WORD 



OF RESULT = -193. FIU = 0. FID = 1 

;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.•FRACTIONAL RES. 
: INTEGER RES. 
;ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
.FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 



WITH EXPONENT OF THE RESULT = 128. FIV = 1. FID = 1 
.SET UP THE LOOP ON ERROR ADDRESS. 



PC-WDFOV 
60652.125252 
60200,0 
0.0 

5^.125252 

0,6 

0.0 



;AC 
;FSRC 

.FRACTIONAL RES. 
.INTEGER RES. 
.ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 



L. 



CKFPeCO fPIIF FLTG PNT PRT B 
TEST # 20 - SEE COWENT ABOVE 



NfCRO Hni3 20-OCT-81 08:27 PAGE 
FOR TEST TITLE 



SEQUENCE 115 



5681 050366 

5682 050370 

5683 030572 

5684 050574 

5685 050576 

5686 050400 
5687 

5688 050402 

5689 

5690 

5691 050402 
050402 

5692 050404 
5695 050410 

5694 030414 

5695 050420 

5696 050424 

5697 030450 

5698 050454 

5699 030440 

5700 050442 

5701 050444 

5702 030446 

5703 030450 

5704 030452 

5705 030454 
5706 

5707 
5708 

5709 030454 
030454 

5710 030456 

5711 030462 

5712 030466 

5713 030472 

5714 030476 

5715 030502 

5716 030506 

5717 030512 

5718 030514 

5719 030516 

5720 03052C 

5721 03C522 

5722 030524 

5723 J30526 
5724 

5725 
5726 
5727 
5728 
5729 
5730 
5731 
5732 
5733 
5734 
5735 



041000 
141006 
000010 
104172 
000401 
10A-75 



104415 
004757 
060545 
060200 
000000 
000000 
000000 
000545 
006011 
006006 
000010 
000240 
000401 
104174 



104413 
004737 
160252 
060000 
000000 
100052 
000000 
000052 
041000 
141006 
OOCOiO 
104172 
000401 
104175 
000137 



030552 
067654 
000000 
000000 
000000 
000000 
067654 



030532 
125252 
000000 
000000 
125252 
000000 
125252 



031126 



71: 
8S: 

9$: 



41000 

141006 

10 

ERROR ♦I 72 
BR 9S 
ERROR ♦I 73 



;FPS BEFORE EXECUTION. 

;FPS AFTER EXECUTION. 
;FEC 

;BAD FEC ON OVERFLOW. 

;ST 520 TO STORE ZERO TWICE 
.-INTO 162 



;pyERFLOW TEST WITH EXPONENT OF THE RESULT = 150. FIV = 0, FID = 1 

.SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.-FRACTIONAL RES. 
.•INTEGER RES. 
.ERROR FRACTIONAL RES. 
.'ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 
;FEC 





LPERR 






JSR 


PC.FWDFOV 


1S 


.WORD 


60^45.67654 


2S 


.WORD 


60200.0 


5S 


.WORD 


0.0 


4S 


.WORD 


0.0 


5S 


.WORD 


0,0 


6$ 


.WORD 


345.67654 


7$ 


6011 




6006 






10 




8S 


NOP 






BR 


9$ 




ERROR 


♦ 174 



9S: 



.-OVERFLOW TEST WITH EXPONENT OF 
.•AND FIV = 1. FID = 1 



PC-MOOFOV 
166252.125252 
60000,0 
0.0 

l60052. 125252 
0.0 

5^,125252 





LPERR 




JSR 


IS 


.WORD 


2S 


.WORD 


3S 


.WORD 


4S 


.WORD 


5S 


.WORD 


6S 


.WORD 


7$ 


41000 




141006 




10 


8S: ERROR 




BR 




ERROR 


9S: JMP 



♦ 172 
9$ 
♦175 
WWDONE 



:ST 520 TO 162 INTO STORE ZERO TWICE. 



THE RESULT = 128. RESULT NEGATIVE 



:SET UP THE LOOP ON ERROR ADDRESS. 

;AC 
;FSRC 

.FRACTIONAL RES. 
.INTEGER RES. 
.•ERROR FRACTIONAL RES. 
.ERROR INTEGER RES. 
:FPS BEFORE EXECUTION. 
.•FPS AFTER EXECUTION. 
;FEC 



;G0 



:ST 517. BAD SIGN. 
TO THE NEXT TEST. 



.-THIS SUBROUTINE. HOOFOV. IS CALLED TO SETUP THE 

.•OPERANDS. EXECUTE THE NODF INSTRUCTION AND CHECK THE RESULTS. 

;IT IS CALLED THUS: 



ACARG: .WORD X.X 

FSRCARC:.WORD X.X 

FRES: .WORD X.X 

INTRES: .WORD X.X 

ERFRES: .WORD X.X 

ER INTRES:. WORD X.X 

FPS8: .WORD X 



;AC OPERAND 
;FSRC OPERAND 
.FRACTIONAL RESULT 
.INTEGER RESULT 
.ERROR FRACTION RESULT 
.ERROR INTEGER RESULT 
;FPS BEFORE EXECUTION 



CKFPBCO FP11F FLTG PNT PRT B 
TEST » 20 - SEE COHWENT ABOVE 



KACRO H1 113 

F0« TEST TITLE 



20-0CT-81 08:27 PAGE 



H 9 

50-2 



SEQUENCE 



5756 
5757 
5758 
5759 
5740 
5741 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5758 

5759 030532 012601 

5760 030534 012700 000200 

5761 030540 170100 

5762 030542 010100 

5763 030544 172410 

5764 030546 012700 026062 

5765 030552 172510 

5766 030554 016100 000030 

5767 030560 170100 

5768 030562 012737 030576 

5769 030570 010100 

5770 030572 062700 000004 
5771 

5772 030576 171410 
5773 

5774 030600 170204 

5775 030602 170305 

5776 030604 012700 000200 

5777 030610 170100 

5778 030612 012700 031106 

5779 030616 174010 

5780 030620 012700 031116 

5781 030624 174110 
5782 

5783 030626 010102 

5784 030630 010237 001240 

5785 030634 062702 000004 

5786 030640 010237 001242 

5787 030644 062702 000004 

5788 030650 010237 001244 

5789 030654 062702 000004 

5790 030660 010237 001246 

5791 030664 012757 031106 

5792 030672 012717 051116 



FPSA: 


.yoRD 


X 


;FPS AFTER EXECUTION 


FEC: 


.yoRO 


X 


;FEC 


ERR1: 


ERROR 


♦ X 


;FEC ERROR 




BR 


CONT 




ERR2: 


ERROR 


♦X 


.INTEGER ERROR 


CONT: 






.RETURN ADDRESS 



THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE HODF 

INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 

THE FRACTION PART OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 

THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 

THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 

THEN NOOFOV UlLL RETURN TO CONT. IF THE FPS yAS INCORRECT 

IT IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 

THE ANTICIPATED BAD FRACTION. ERFRES. IF THIS DOESN'T MATCH 

THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 

FAILURE MATCHES THE TRUE RESULT THEN MOOFOV PASSES CONTROL TO THE 

ERROR CALL AT ERRl. LIKEWISE IF THE INTEGER PART OF THE RESULT IS 

NOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 

FAILURE. IF THIS DOEN'T PUTCH THEN THE ERROR IS REPORTED HERE. 

IF A MATCH IS MADE HOWEVER, MODFOV WILL RETURN CONTROL TO THE ERROR 

CALL AT ERR2. 



001236 



MODFOV: MOV 
MOV 
LDFPS 
MOV 
LDD 
MOV 
LDD 
MOV 
LDFPS 
MOV 
MOV 
ADD 



(SP)», R1 
#200, RO 
RO 

Rl.RO 
(RO) .ACO 
«M0DP1,R0 

(R0),AC1 

30(R1),R0 

RO 

«1S,STHP2 

RI.RO 

f4,R0 



001250 
001252 



IS: MODF (RO),ACO 

STFPS R4 

STST R5 

MOV #200, RO 

LDFPS RO 

MOV mODFDO.RO 

STD ACO,(RO) 

MOV mODFDI.RO 

STD ACI.(RO) 

MOV R1 .R2 

MOV R2.$THP3 

ADD «4,R2 

MOV R2,STHP4 

ADD «4,R2 

MOV R2.$THP5 

ADD «4,R2 

MOV R2,STMP6 

MOV «MO0FD0,STHP7 

MOV fMOOFDI.STMPIO 



:GET A POINTER TO THE ARGlfKNTS 
:SET FD MODE. 

;SET UP ACO 

;PUr A BACKROUND PATTERN INTO AC1, 
;SET UP THE FPS. 

.•COMPUTE THE ADDRESS OF THE FSRC. 

.•EXECUTE THE TEST INSTRUCTION. 

;6ET THE FPS. 
;6ET FEC. 
:SET FD MODE. 

.-GET THE FRACTIONAL RESULT. 
.-GET THE INTEGER RESULT. 

.-SAVE THE DATA IN CASE OF ERROR. 



CKFPeCO FPIIf flTG PNT PftT B 
TEST f 20 - SEE COIWENT ABOVE 



5795 050700 


010437 


001254 


5794 030704 


016157 


000032 


5795 030712 


010557 


001260 


57% 030716 


016157 


CO0054 


5797 






5798 030724 


012702 


051106 


^799 030730 


026112 


000010 


5800 030754 


001025 




5801 050756 


026162 


000012 


5802 050744 


001021 




5803 






5804 030746 


012702 


051116 


5805 050752 


026112 


000014 


5806 050756 


001016 




5807 030760 


026162 


000016 


5808 030766 


001012 




5809 






5810 030770 


026104 


000052 


5811 050774 


001024 




5812 






5813 030776 


026105 


000054 


5814 031002 


001030 




5815 






5816 031004 


000161 


000044 


5817 






5818 






5819 031010 






5820 031010 


104165 




5821 031012 


000774 




5822 






<823 






824 031014 
1825 031020 


026112 


000024 


001010 




5826 051022 


026162 


000026 


5827 051030 


001004 




5828 031052 


010102 


000042 


5829 031034 


062702 


5830 






5831 031040 


000112 




5832 






5833 031042 






5834 031042 


104166 




5835 031044 


000757 




5836 






5837 






5838 031046 


010437 


001254 


5839 031052 


016157 


000052 


5840 031060 


104167 




5841 051062 


000750 




5842 






5845 






5844 051064 


010537 


001260 


5845 051070 


016137 


000034 


5846 031076 


010102 




5847 031100 


062702 


000036 


5848 031104 


000112 




5849 







IWCRO M1113 
F0« TEST TITLE 



001256 
001262 



20-OCT-81 Ob: 27 PAGE 



N 9 

50-5 



000002 



000002 



NOV 


R4,$TNP11 


NOV 


52 (R1 ) ,$TNP12 


NOV 


R5.$TNP15 


NOV 


54(R1),$TNP14 


NOV 


«NO0FD0,R2 


CNP 


4A/«h4% 

10(R1 ) , (R2) 


BNE 


4 AA 

10S 


CNP 


12(R1 ) ,2(R2) 


BNE 


4 A* 

10S 


NOV 


«NODP01,R2 


CNP 


14(R1),(R2) 


BNE 


ISS 


CNP 


16(R1),2(R2) 


BNE 


ISS 


CNP 


52(R1),R4 


04IC 

one 


one 


CNP 


34(R1),R5 


BNE 


2SS 


JNP 


44 (R1) 



9S: 



;FRACriONAL ERROR. 
lOS: 

12S: ERROR ♦US 
BR 9S 



000002 



001256 



001262 



: INTEGER ERROR. 
ISS: CNP 

BNE 

CNP 

BNE 

NOV 

ADO 

JNP 

16S: 

17S: ERROR 
BR 

;FPS INCORRECT. 
20S: NOV 
NOV 

2U: ERROR 
BR 



24(R1),(R2) 
16$ 

26(R1),2(R2) 
16$ 
R1-R2 
«4$,R2 

(R2> 



♦166 
9S 



R4.$TNP11 

32(R1),$TNP1.^ 

♦167 

9$ 



•REPORT FEC ERROR. 

JS$: NOV R5,$TNP13 

NOV 34(R1),$TNPU 

NOV R1 ,R2 

ADO #36, R2 

JNP (R25 



SEQUENCE 1 1 7 



.•CHECK THE FRACTIONAL RESULT. 
.•BRANCH IF INCORRECT. 

.•CHECK THE INTEGER RESULT. 
.•BRANCH IF INCORRECT. 



.CHECK THE FPS. 
.•BRANCH IF INCORRECT. 

.•CHECK THE FEC. 
.BRANCH IF INCORRECT. 

.•RETURN. 



.•THE ERROR WAS NOT ANTICIPATED SO 
.•REPORT THE INCORRECT FRACTION HERE. 



:UAS THIS ERROR ANTICIPATED? 
.•BRANCH IF NOT. 



THE ERROR IMS ANTICIAPTED SO RETURN 
TO THE ERROR REPORT IN THE CALLING 
ROUTINE. 



.•THE ERROR UAS NOT ANTICIPATED SO REPORT 
;THE INTEGER FAILURE HERE. 



.•REPORT INCORRECT FPS. 



CKFP8C0 FP11F FLTG PNT PRT B MACRO HIUS 20-OCT-81 08:27 PAGE 
TEST f 20 - SEE COWKNT ABOVE FOR TEST TITLE 



B 10 
30-« 



5850 031106 
5851 

5852 031116 
5853 

5854 0Jil26 



5855 
5856 
5857 
5865 
5866 



000000 
OOOOOU 



031126 104412 



000000 
000000 



000000 
000000 



nOOfOO: 
WDFD1 : 



.WORD 
.WORD 

RSETUP 



0.0.0.0 
0.0.0.0 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



.-TEST TITLE -UNDER/OVERFLOU. USING HODD WITH TRAPS DISABLED 



SEQUENCE 118 



CKFPBCO FP11F FLTG PNT PRT B 
TEST « 21 - SEE COMMENT ABOVE 

5867 



MACRO Mil 13 20-0CT-81 08:27 
FOR TEST TITLE 



PAGE 



Si 



10 



SEQUENCE 119 



031130 

5868 
5869 

5870 031132 
031132 

5871 031134 

5872 031 UO 

5873 031 U4 

5874 031150 

5875 031160 

5876 031170 

5877 031200 

5878 031204 
58/9 031210 

5880 031220 

5881 031222 

5882 031224 

5883 031226 

5884 031230 

5885 031232 

5886 031234 
5887 

5888 

5889 031234 
031234 

5890 031236 

5891 031242 

5892 031246 

5893 031252 

5894 031262 

5895 031272 

5896 031302 

5897 031312 

5898 031316 

5899 031322 

5900 031324 

5901 031326 

5902 031330 

5903 031332 

5904 031334 

5905 031336 
5906 

5907 

5908 031336 
031336 

5909 031340 

5910 031344 

5911 031350 



000004 



104413 
004737 
060252 
125252 



SBTTL TEST # 21 - SEE COMMENT ABOVE FOR TEST TITLE 
SEE COMMENT ABOVE FOR TEST TITLE 



•TEST 21 

•THIS IS A TEST OF THE MODD INSTRUCTION'S OVER FLOW AND UNDER FLOW 
•CONDITIONS. A SUBROUTINE IS USED TO SET UP THE OPERANDS, EXECUTE THE 
•MODD INSTUCTION AND CHECK THE RESULTS. 



TST21: SCOPE 

.UNDERFLOW TEST WITH EXPONENT OF THE RESULT = -129, FIU 
NNN1: 



104413 








LPERR 


004737 


031546 






JSR 


020252 


125252 




1$: 


.WORD 


125252 


125252 






.WORD 


020100 


000000 


000000 


2$: 


.WORD 


000177 


^77777 


^77777 


3$: 


.WORD 


000000 


000000 


000000 


4$: 


.WORD 


020252 


125252 




5$: 


.WORD 


125252 


125252 






.WORD 


000000 


000000 


U7777 


6$: 


.WORD 


042200 






7$: 


42200 


142204 








142204 


000012 








12 


104201 






8S: 


ERROR 


000401 








BR 


104202 








ERROR 



9S: 



PC.MODDOV 

20^52.125252 

12525^.125252 

20100,6,0.0 

177.-1.-1.-1 

0.0-0,0 

262^2.125252 

125252.125252 

0.0.-1,-1 



♦201 
9$ 

♦202 



1. FID = 1 
.-SET UP THE LOOP ON ERROR ADDRESS. 
.AC 
;FSRC 

.FRACTIONAL RES. 

.•INTEGER RES. 

.-ERROR FRACTIONAL RES. 

.ERROR INTEGER RES. 
;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 

;FEC 

.-FEC INCORRECT ON UNDERFLOW. 
;ST 155 (BUT FD) 



104413 








LPERR 


004737 


031546 






JSR 


010000 


000000 




1$; 


.WORD 


12' 


000000 






.WORD 


0102UO 


000000 


000000 


2$: 


.WORD 


000000 


000000 


000000 


3$: 


.WORD 


000000 


000000 


000000 


4$: 


.WORD 


000000 


000000 


000000 


5$: 


.WORD 


000000 


000000 




6S: 


.WORD 


123456 


000000 






.WORD 


005213 






7$: 


5213 


005204 








5204 


000012 








12 


000240 






8$: 


NOP 


000401 








BR 


104203 








ERROR 



.-UNDERFLOW TEST WITH EXPONENT OF THE RESULT = -193, FIU = 0, FID = 1 
NNN2 * 

.SET UP THE LOOP ON ERROR ADDRESS. 



9$: 



PC.MOODOV 

10600, 0 

123456.0 

10200.6.0.0 

0.0.0.0 

0.0,0,0 

0.0.0,0 

0.0 

1^3456.0 



9$ 

♦203 



;AC 
-FSRC 

•FRACTIONAL RES. 
.-INTEGER RES. 
.•ERROR FRACTIONAL RES. 
.•ERROR INTEGER RES. 

;FPS BEFORE EXECUTION. 
;FPS AFTER EXECUTION. 



.ST 047 (BUT FD), 



031546 
125252 
125252 



.OVERFLOW TEST WITH EXPONENT OF THE RESULT = 128. FIV = 1. FID = 1 
NNN3 - 

LPERR :SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC.MODDOV 
1$: .WORD 60252.125252 ;AC 
.WORD 12525^,125252 



CKFPeCO fPIIF FITG PNT "RT B 
TEST • 21 - SEE CDW1ENT ABOVE 



MACRO 

FOR TEST TITLE 



20-0CT-81 08:27 PAGE 



D 10 
31-1 



SEQUENCE 



59:2 
5913 
59U 
5915 
5916 
5917 
5918 
5919 
5920 
5921 
5922 
5923 
5924 
5925 
5926 
5927 

5928 
5929 
5930 
5931 
5932 
5933 
5934 
5935 
5936 
5937 
5938 
5939 
5940 
5941 
5942 
5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 



031354 
031364 
051374 
031404 
031414 
031420 
031424 
031426 
031430 
031432 
031434 
031436 
031440 



031440 
031440 
031442 
031446 
031452 
031456 
031466 
031476 
031506 
031516 
031522 
031526 
031530 
031532 
031534 
031536 
031540 
031542 



060100 
000000 
000177 
000000 
00017/ 
125252 
041200 
141206 
000010 
104204 
000401 
104205 



104413 
004737 
060200 
125252 
060200 
000000 
000000 
000000 
000400 
125252 
006211 
006206 
000010 
000240 
00040' 
104206 
000137 



000000 
000000 
\77777 
000000 
}77777 
125252 



000000 
000000 
}77777 
000000 



031546 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 
000000 



032154 



2S 
3$ 
41 
5$ 
6$ 

7$: 



8$: 
9$: 



.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

41200 

141206 

10 

ERROR 
BR 

ERROR 



60100.0.0.0 

0.0.0.0 

1?7.-f.-1.-1 

0.0.0,6 
1^7.-1 

125^2.125252 



♦204 

9$ 

♦205 



FSRC 

FRACTIONAL RES. 
INTEGER RES. 
ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
FEC 

FEC BAD ON OVERFLOW. 

ST 520 TO 162 INTO 163 (BUT FD) 



.OVERFLOW TEST 
NNN4: 

LPERR 
JSR 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
6211 
6206 
10 
NOP 
BR 

ERROR 
JHP 



1$: 

2$ 
3$ 
4$ 
5$ 
6$ 

7$: 



8$: 



WITH EXPONENT OF THE RESULT = 130. FIV = 0. FID = 1 
;SET UP THE LOOP ON ERROR ADDRESS. 

;AC 



91: 



PC-WODDOV 
6OJOO.O 
12525^.0 
60200.0.0.0 
0.0,0.0 
0.0.0.0 
0.0.0.0 
400.0 
125^52.0 



9S 

♦206 



NNNDONE ;G0 TQ NEXT TEST. 



FSRC 

FRACTIONAL RES. 
INTEGER RES. 
ERROR FRACTIONAL RES. 
ERROR INTEGER RES. 

FPS BEFORE EXECUTION. 
FPS AFTER EXECUTION. 
FEC 



;ST 520 TO 162 INTO STORE ZERO TWICE. 



THIS SUBROUTINE. HODDOV. IS CALLED TO SETUP THE 

OPERANDS, EXECUTE THE nODD INSTRUCTION AND CHECK THE RESULTS. 

IT IS CALLED THUS: 



ACARG: 


.WORD 


X # X ^ X # X 


-AC OPERAND 


FSRCARG 


:.WORD 


X ^ X ^ X ^ X 


;FSRC OPERAND 


FRES: 


.WORD 


X # X ^ X y X 


-FRACTIONAL RESULT 


INTRES: 


.WORD 


X ^ X # X » X 


•INTEGER RESULT 


ERFRES: 


.WORD 


X # X ^ X # X 


-ERROR FRACTION RESULT 


ERINTRES:.W0RD 


X 0 X # X # X 


■ERROR INTEGER RESULT 


FPS8: 


.WORD 


X 


;FPS BEFORE EXECUTION 


FPSA: 


.WORD 


X 


;FPS AFTER EXECUTION 


ERR1: 


ERROR 


♦X 


; FRACTION ERROR 




BR 


CONT 




ERR2: 


ERROR 


♦X 


; INTEGER ERROR 


CONT: 




.RETURN ADDRESS 



THE OPERANDS ARE SET UP (USING ACO FOR THE AC ARGUMENT). THE HOOD 
INSTRUCTION IS EXECUTED. THEN THE RESULTS ARE RETRIEVED. 
THE FRACTION PARi OF THE RESULT IS COMPARED WITH FRES. IF THIS IS CORRECT 
THEN THE INTEGER PART IS COMPARED WITH INTRES. IF BOTH OF THESE ARE CORRECT 
THEN THE FPS IS COMPARED WITH FPSA. AFTER EXECUTION IF NO ERRORS OCCURRED 
THEN HODDOV WILL RETURN TO CONT. IF THE FPS WAS INCORRECT 



031612 171410 



CKFPBCO FPIIF FLTG PNT PRT B 
TEST f 21 > SEE COmENT ABOVE 



5968 
5969 
5970 
5971 
5972 
5973 
5974 
5975 
5976 
5977 

5978 031546 012601 

5979 031550 012700 

5980 031554 170100 

5981 031556 010100 

5982 031560 172410 

5983 031562 012700 

5984 031566 172510 

5985 031570 016100 

5986 031574 170100 

5987 031576 012737 

5988 031604 010100 

5989 031606 062700 
5990 
5991 
5992 

5993 031614 170305 

5994 031616 170204 

5995 031620 012700 

5996 031624 170100 

5997 031626 012700 

5998 031632 174010 

5999 031634 012700 

6000 031640 17h110 
6001 

6002 031642 010102 

6003 031644 010237 

6004 031650 062702 

6005 031654 010237 

6006 031660 062702 

6007 031664 010237 

6008 031670 062702 

6009 031674 010237 

6010 031700 012737 

6011 031706 012737 

6012 031714 010437 

6013 031720 016137 

6014 031726 010537 

6015 031732 016137 
6016 

6017 031740 012702 

6018 031744 010103 

6019 031746 062703 

6020 031752 012700 
602? 031756 022223 

6022 031760 001023 

6023 031762 077003 
6024 
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SEQUENCE 12' 



IT IS REPORTED HERE. IF THE FRACTION IS INCORRECT IT IS COMPARED WITH 

THE ANTICIPATED BAD FRACTION, ERFRES. IF THIS DOESN'T NATCH 

THE TRUE RESULT THEN THE ERROR IS REPORTED HERE. IF THE ANTICIPATED 

FAILURE HATCHES THE TRUE RESULT THEN MODDOV PASSES CONTROL TO THE 

ERROR CALL AT ERR1 . LIKEWISE IF THE INTEGER PART OF THE RESULT IS 

NOT CORRECT THEN IT IS COMPARED WITH THE ANTICIPATED INTEGER 

FAILURE. IF THIS DOEN'T HATCH THEN THE ERROR IS REPORTED HERE. 

IF A HATCH IS HADE HOWEVER, MODDOV WILL RETURN CONTROL TO THE ERROR 

CALL AT ERR2. 







nuDDUV : 


nuv 
















1 ncDC 








TOV 








i nn 
LI'I' 








nuv 








1 nn 


000060 






MOV 








LDFPS 


Uj lo 1 c 






nuv 








Mflu 
nuv 


UUUU 1 v 






AAA 






It- 


Mfinn 








9 1 d 1 








9 1 r ro 


WVCvv 














1 DPPC 








mnu 








9 1 w 
















STO 








MOV 










000010 






ADD 


WW 1 c*»c 






MOt/ 


000010 

wVww 1 w 






ADD 


001 ?AA 

WW 1 C"t*f 






MOV 


00001 0 

WW 1 V 






ADD 


001246 






m\i 


032134 


001250 




HOV 


032144 


001252 




HOV 


001254 






MOV 


000062 


001256 




MOV 


001260 






NOV 


000064 


001262 




HOV 


032134 






NOV 








HOV 


000020 






ADD 


000004 






HOV 






2S: 


CMP 








BNE 








SOB 



(SP)+, Rl 
#200, RO 
RO 

R1-R0 

(RO}.ACO 

«M0DP1 ,R0 

(R0),AC1 

60(R1),R0 

RO 

#1$,$TMP2 

Rl.RO 

#10«R0 

(RO),ACO 

R5 
R4 

#200, RO 
RO 

#HODDD0,R0 
ACO,(RO} 
#HO00D1,R0 
AC1,(R0) 

R1,R2 

R2-fTMP3 

#l6,R2 

R2-ITHP4 

#l6.R2 

R2.iTHP5 

#10. R2 

R2,iTHP6 

#n0DDD0,STHP7 

#nODDDl.STMP10 

R4,$TMP11 

62(R1),$THP12 

R5,$THP13 

64(Rl),$TnP14 

#MODDD0,R2 
R1.R3 
#26, R3 
#4-R0 

(R^)*,(R3)* 

10$ 

R0,2S 



;GET A POINTER TO THE ARGUHENTS 
;SET FD HODE. 

.-SET UP ACO 

.-PUT A BACKROUND PATTERN INTO ACl 
;SET UP THE FPS. 

; COMPUTE THE ADDRESS OF THE FSRC. 

;EXECUTE THE TEST INSTRUCTION. 

;6ET THE FPS. 
;GET THE FPS. 
;SET FD HODE. 

;6ET THE FRACTIONAL RESULT. 
;6ET THE INTEGER RESULT. 

.'SAVE THE DATA IN CASE OF ERROR. 



.-CHECK THE FRACTIONAL RESULT. 



.'BRANCH IF INCORRECT. 



LKfPSCO FPIIF FLTG PNT PRT B 
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HACRO H1 113 
FOR TEST TITLE 
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SEQUENCE 



6025 
6026 
6027 
6028 
6029 
6030 
6031 



031764 
031770 
031772 
031776 
032002 
03200A 
032006 



012702 
010103 
062703 
012700 
022223 
001013 
077003 



032U4 

000030 
000004 



3$: 



HOV 
MOV 
ADD 

nov 

CHP 
BNE 
SOS 



/mODDDI ,R2 
R1-R3 
#36. R3 
#A.RO 

(R2)*.(R3)* 

15$ 

R0,3S 



.-CHECK THE INTEGER RESULT. 



.BRANCH IF INCORRECT. 
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6033 

603A 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

604S 

6046 

6047 

6048 

6049 

6050 

6051 

6052 

6053 

6054 

6055 

6056 

6057 

6058 

6059 

606C 

6061 

6062 

6063 

6064 

6065 

6066 

6067 

6068 

6069 

6070 

6071 

6072 

6073 

6074 

6075 

6076 

6077 

6078 

6079 

6080 

6081 

6082 



032010 026104 000062 

032014 001027 

032016 026105 000064 

032022 001033 

032024 000161 000074 



032030 
032030 
032032 



032034 
032040 
032042 
032046 
032052 
032054 
032056 
032060 
032062 



032070 
032070 
032072 



032074 
032100 
032106 
032110 



032112 
032116 
032124 
032126 
032132 

032134 

032144 

032154 
032154 



104176 
000774 



012702 
010103 
062703 
012705 
022223 
001005 
077503 
010102 
062702 



032066 000112 



104267 
000754 



010437 
016137 
104200 
000745 



010537 
016137 
010102 
062702 
000112 

000000 

000000 

104412 



032144 

000050 
000004 



000072 



001254 
000062 



001260 
000064 

000066 



000000 
000000 



001256 

001262 

000000 
000000 



9$: 



CMP 
BNE 

CNP 
BNE 



62(R1),R4 
20$ 

64(R1),R5 
2SS 

74 (R1) 



;FRACTIONAL ERROR. 
10$: 

12$: ERROR +176 
BR 9$ 



.INTEGER ERROR. 



15$: 



60$: 



16$: 
17$: 



MOV 
MOV 
ADD 
NOV 
C«P 
BNE 
SOB 
HOV 
ADD 

.IMP 



ERROR 
BR 



:FPS INCORRECT. 
^0$: MOV 
MOV 

21$: ERROR 
BR 



#M0DDD1,R2 
R1.R3 
«56.R3 
#4.R5 

(R2)+.(R3)* 
17$ 

R5.60$ 

R1.R2 

*7^.R2 

(R2) 



♦267 
9$ 



R4.$TMP11 

62(R1),$TMP12 

♦200 

9$ 



REPORT FEC ERROR. 



^5$ 



MOV 
MOV 
NOV 
ADD 
JMP 



MODDDO: .WORD 
N0DDD1: .WORD 
NNNDONE: 

RSETUP 



R5.$TMP13 
64(R1),STMP14 
RKR2 
«66.R2 

(R25 

0,0,0.0 
0.0.0,0 



6083 
6125 



SEQUENCE 123 



.•CHECK THE FPS. 
.•BRANCH IF INCORRECT. 

.•CHECK THE FEC. 
.•RETURN. 

.THE ERROR yAS NOT ANTICIPATED SO 
.•REPORT THE INCORRECT FRACTION HERE. 

;UAS THE INTEGER ERROR ANTICIPATED? 



.•BRANCH IF NOT ANTICIPATED. 

;THE ERROR WAS AN^ICIAPTED SO RETURN 
:T0 THE ERROR REPORT IN THE CALLING 
.'ROUTINE. 



;THE ERROR WAS NOT ANTICIPATED SO REPORT 
.THE INTEGER FAILURE HERE. 



.•REPORT INCORRECT FPS. 



;G0 INITIALIZE THE FPS AND STACK; AND 
.SEE IF THE USER HAS EXPRESSED 
.-THE DESIRE TO CHANGE THE SOFTWARE 
.•VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL 6?). 
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SEQUENCE 



6126 



032156 

6127 

6128 032160 

6129 032166 

6130 032170 
6131 

6132 032176 

6133 032200 
6154 

6135 03220A 

6136 032212 

6137 032220 

6138 032226 
6139 



000004 



SBTTL TEST M 22 - INTERRUPT CORRECT FLOWS TEST 



•TEST 22 



INTERRUPT CORRECT FLOWS TEST 



•THIS IS A TEST OF THE 'CORRECT' FLOWS. THIS PART Of THE MICRO CODE 
•HAS AS ITS PURPOSE INSURING THAT INTERRUPT REQUESTS HADE DURING 
•CERTAIN LENGTHY FPP INSTRUCTIONS GET HONORED. THIS IS DONE 
•IN A WAY SUCH THAT IF AN INTERRUPT REQUEST OCCURS DURING ONE 
•OF THESE INSTRUCTIONS THE STATE OF THAT INSTRUCTION'S 
•EXECUTION WILL BE THE SAME AS 1^ THAT INSTRUCTION HAD NEVER 
•BEEN FETCHED AND ITS EXECUTION NEVER STARTED. THUS THE MICRO CODE 
•WILL RESTORE ALL REGISTERS, BACK UP THE PC AND LEAVE THE 
•FPS AND ACO THROUGH ACS UNMODIFIED. 
•THE INSTRUCTIONS FOR WHICH THIS IS NECESSARY ARE: 

• ADD (OR SUB) 

• DIV 

• MUL 

• MOD 

•(BOTH DOUBLE AND FLOATING) 

•ALL ADDRESSING MODES WILL BE TRIED WITH THE ADDD INSTRUCTION. THEN 

•EACH OF THE OTHER INSTRUCTIONS WILL BE TRIED USING MODE 1 

•NOTE THAT THIS TEST NEEDS A SPECIAL INTERRUPT MODULE, 

•WHICH WILL PROBABLY ONLY BE PRESENT IN DEC'S MAMUf ACTURING ENVIRONMENT, 

•TO RUN. THIS SPECIAL EQUIPMENT IS DESIGNED TO RAISE AN 

•INTERRUPT REQUEST IN THE PROCESSOR IF A BIT IS SET IN ITS STATUS 

•REGISTER AND ONLY WHEN AN FPP INSTRUCTION IS ENCOUNTERED. 

•THEREFORE THIS TEST WILL BE RUN CONDITIONALLY (DEPENDENT UPON WHETHER 

•OR NOT THE STATUS REGISTER OF THE TEST EQUIPMENT TIMES OUT WHEN REFERENCED), 

•THIS TEST CAN ALSO BE DESELECTED BY TURNING SWITCH 7 OF THE 

•SWITCH REGISTER (PHYSICAL OR VIRTUAL) ON. 

•THE TEST ASSUNES THAT THE TEST EQUIPMENT'S STATUS REGISTER IS AT 
•LOCATION 77777^ (NOTE THAT ALL REFERENCES TO THIS LOCATION ARE 
•MADE INDIRECT THROUGH THIS PROGRAMS LOCATION CORINT. SO THAT 
•IF THE USER HAS MODIFIED THE TEST EQUIPMENT'S STATUS REGISTER TO 
•RESPOND TO A DIFFERENT ADDRESS LOCATION CORINT MUST BE 
•MADE TO CONTAIN THAT STATUS REGISTER'S NEW ADDRESS). 

•THIS PROGRAM ASSUMES THAT THE TRAP VECTOR FOR THE TEST EQUIPMENT IS 110. 
•AGAIN NOTE THAT ALL REFERENCES TO THIS TRAP VECTOR ARE INDIRECT. THROUGH 
•THIS PROGRAM'S LOCATION CORTRP (IF THE TEST EQUIPMENT IS 
•MADE TO TRAP TO A DIFFERENT VECTOR LOCATION CORTRP MUST CONTAIN THE 
•ADDRESS OF THIS VECTOR). 



TST22: SCOPE 



132737 000200 001337 BITB 
OOU06 BEQ 

032777 000200 U6742 BIT 

001022 BNE 

000137 033336 JMP 

012737 032230 000004 C0R1: MOV 

012777 000000 001112 MOV 

012737 037502 000004 MOV 
000406 BR 



#200.$ENVM :SEE IF APT IS SELECTING TEST. 

C0R1 .-BRANCH TO AUTOSIZE IF NOT. 

#200,aSWR :SEE IF THE USER HAS SELECTED THIS 

;TEST USING THE SWITCH REGISTER. 
C0R3 ;IF SO, PERFORM TEST. 

CORDONE :ELSE DO NOT RUN TEST. 

#C0R2,ERRVECT ;SEE IF THE TEST EQUIPMENT'S STATUS 
#0.aCORINT .-REGISTER TIMES OUT. 

#CPSPUR,ERRVECT 

C0R3 .-DIDN'T TIME OUT SO START TEST. 



CicFPeCO FP11F FLTG PNT PRT B MACRO H1113 
TEST It 22 - INTERRUPT CORRECT FLOWS TEST 



I 10 

20-OCT-81 08:27 PAGE 33-1 



SEQUENCE 125 



6U0 
6K1 
6142 
6U3 
6K4 
6U5 
6U6 
6U7 
6K8 
6U9 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6160 
6161 
6162 
6163 
6164 

6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6178 

6179 
6180 
6181 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6190 
6191 
6192 

6193 



032230 
032232 
032240 



032244 
032244 
032250 
032252 
032254 
032256 
032256 
032260 
032264 
032274 
032276 
032300 
032302 
032304 
032310 
032312 
032314 
032316 

032316 
032316 
032320 
032324 
032334 
032336 
032340 
032342 
032344 
032350 
032352 
032354 
032356 



032356 
032356 
032360 
032364 
032374 
032376 
032400 
032402 
032404 
032410 
032412 
032414 
032416 



032416 
032416 
032420 



022626 
012737 
000137 



005227 
001002 
104401 
040455 

104413 
004737 
040200 
123456 
000200 
172000 
000240 
005037 
104252 
000401 
104253 



104413 
004737 
040201 
032324 
000217 
172010 
000240 
005037 
104252 
000401 
104254 



104413 
004737 
040202 
032364 
000205 
172020 
000240 
005037 
104252 
000401 
104255 



104413 
004737 



037502 000004 
033336 



}77777 



033036 

000100 000200 



033320 



033036 

000555 077007 



033320 



033036 

111333 052525 



033320 



C0R2; 



.•TEST 
C0R3: 



CMP (SP)*.(SP)* ;IF THE REFERENCE TIMES OUT DO 

MOV *CPSPUR.ERRVECT 

JMP CORDONE ;N0T RUN TEST. 



ADDD MODE 0 



C0R33: 



1$ 
2$ 
3$ 
4$ 



5$: 
11$: 
.TEST 
C0R4: 



IS 
2% 
3$ 
4S 



11$: 

.TEST 
C0R5: 



1$ 
2$ 
3$ 
4$ 



11$: 

; TEST 
C0R6: 



INC 
BNE 
TYPE 
.WORD 

LPERR 

JSR 

.WORD 

.WORD 

200 

ADDD 

NOP 

CLR 

ERROR 

BR 

ERROR 



f-1 

C0R33 

CORMES 

:SET UP THE LOOP ON ERROR ADDRESS. 

PC.C0RSU8 

40^00.100.200.300 ;ACO 
123456 :R0 
;FPS 

ACO.ACO .-TEST INSTRUCTION. 



C0RFL6 
♦252 
11$ 
♦253 



;RESET INTERRUPT FLAG 

:N0 INTERRUPT! TEST EQUIPMENT FAKED. 

.■INCORRECT STATE AT INTERRUPT. 



ADD MODE 1 

LPERR 
JSR 
.WORD 
.WORD 
217 
ADDD 
NOP 
CLR 
ERROR 
BR 

ERROR 



:SET UP THE LOOP ON ERROR ADDRESS. 

PC C0RSU8 

40^01.555.77007,111111 ;ACO 
1$ ;R0 
;FPS 

(RO).ACO .-TEST INSTRUCTION 

CORFLG .-RESET INTERRUPT FLAG 
♦252 .-REPORT FAILURE. NO INTERRUPT. 

11$ 
♦254 



ADDD MODE 2 



LPERR 

JSR 

.WORD 

.WORD 

205 

ADDD 

NOP 

CLR 

ERROR 

BR 

ERROR 



.-SET UP THE LOOP ON ERROR ADDRESS. 

PC C0RSU6 

40^02.111333.52525.70707 ;ACO 
IS :R0 
.-fPS 

(R0) + .ACO .-TEST INSTRUCTION 



CORFLG 
♦252 
11$ 
♦255 



.-RESET THE INTERRUPT FLAG 

.REPORT FAILURE. NO INTERRUPT. 

; CORRECT FLOWS FAILED. 



033036 



ADDD MODE 3 
LPERR 

JSR PC.C0RSU8 



:SET UP THE LOOP ON ERROR ADDRESS. 



CKFPBCO FP11F FLTG PNT PRT B MACRO BlIlS 
TEST # 22 - INTERRUPT CORRECT FLOWS TEST 



J 10 

20-OCT-81 08:27 PAGE 33-2 



SEQUENCE 126 



6194 
6195 
6196 
6197 
6198 
6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6208 

6209 

6210 

6211 

6212 

6213 

62U 

6215 

6216 

621 

6218 

6219 

6220 

6221 

6222 

6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 
6231 
6232 
6233 
6234 
6235 
6236 
6237 
6238 

6239 
6240 
6241 
6242 
6243 
6244 
6245 
6246 
6247 



032424 
032434 
032436 
032440 
032442 
032444 
032450 
032452 
032454 
032456 
032460 

032462 

032462 
032462 
032464 
032470 
032500 
032502 
032504 
032506 
032510 
032514 
032516 
032520 
032522 



032522 
032522 
032524 
032530 
032540 
032542 
032544 
032546 
032550 
032554 
0325S6 
032560 
032562 
032564 
032566 



032566 
032566 
032570 
032574 
032604 
032606 
032610 
032614 
032620 
032622 
032624 



071735 



033320 



033036 
123456 



033320 



040203 
032460 
000206 
172030 
000240 
005037 
104252 
000403 
104256 
000401 
032424 



104413 
004737 
040204 
032500 
000212 
172040 
000240 
005037 
104252 
000401 
104257 



104413 
004737 
040205 
032566 
000213 
172050 
000240 
005037 
104252 
000403 
104260 
000401 
032530 



104413 

004737 033036 



072746 1$ 
2$ 
3$ 
4S 



033036 
076543 



033320 



032573 
000214 
172060 000001 
005037 033320 
104252 
000401 
104261 



5$: 

10S: 

11$: 

;TEST 

C0R7: 



070123 1$ 
2S 
3S 
4S 



11$: 

.•TEST 
C0R8: 



021076 IS 
2$ 
3$ 
4$ 



5$: 



10$: 
11$: 



.WORD 

.WORD 

206 

ADDD 

NOP 

CLR 

ERROR 

BR 

ERROR 
BR 

.WORD 



LPERR 
JSR 
.WORD 
.WORD 

212 

ADDD 

NOP 

CLR 

ERROR 

BR 

ERROR 



LPERR 
JSR 
.WORD 
.WORD 

213 

ADDD 

NOP 

CLR 

ERROR 

BR 

ERROR 
BR 

.WORD 



40203,71735,72746.1 



10$ 

a(RO)^.ACO 

CORFLG 

♦252 

11$ 

♦256 

11$ 

1$ 



:ACO 



:R0 
;FPS 

.TEST INSTRUCTION 

.•RESET THE INTERRUPT FLAG 
.•REPORT FAILURE. NO INTERRUPT. 

.■CORRECT FLOWS FAILED. 

;USED FOR THE ADDRESSING OF THE OPERAND 
.IN THIS MODE. 



ADDD MODE 4 



.SET UP THE LOOP CN ERROR ADDRESS. 
;ACO 



PC.CORSUB 

40^04,123456.70123.45671 
1$+10 ;R0 
;FPS 

-(R0),AC0 .TEST INSTRUCTION 



CORFLG 
♦252 
11$ 
♦257 



; RESET THE INTERRUPT FLAG 

.•REPORT FAILURE. NO INTERRUPT. 

.•CORRECT FLOWS FAILED 



ADDD MODE 5 



.SET UP THE LOOP ON ERROR ADDRESS. 

PC.CORSUB 

40^05, 76543.21076.54321 ;ACO 
10$^2 :M 
'FPS 

a-{RO).ACO -TEST INSTRUCTION 



CORFLG 

♦252 

11$ 

♦260 

11$ 

1$ 



.•RESET THE INTERRUPT FLAG 

.•REPORT ERROR. NO INTERRUPT. 

.CORRECT FLOWS FAILED. 



.TEST ADDD MODE 6 



C0R9: 



040206 034353 063730 1$ 



2$ 
3$ 
4$ 



5$: 



LPERR .SET UP THE LOOP ON ERROR ADDRESS. 

JSR PC.CORSUB 

.WORD 40^06. 34353.63730,31323 ;ACO 

.WORD 1$-1 ;M 

214 ;FPS 

ADDD 1(R0),AC0 .-TEST INSTRUCTION 

CLR CORFLG 

ERROR ^252 ; REPORT FAILURE NO TRAP. 

BR 11$ 

ERROR ^261 
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SEQUENCE 127 



6248 032626 
6249 
6250 
6251 



6252 



032626 
032626 
032630 

6253 03263A 

6254 032644 

6255 032646 

6256 032650 

6257 032654 

6258 032660 

6259 032662 

6260 032664 

6261 032666 

6262 032670 

6263 032672 
6264 

6265 

6266 032672 
032672 

6267 032674 

6268 032700 

6269 032710 

6270 032712 

6271 032714 

6272 032716 

6273 032720 

6274 032724 

6275 032726 

6276 032730 

6277 032732 
6278 

6279 

6280 032732 
032732 

6281 032734 

6282 032740 

6283 032750 

6284 032752 

6285 032754 

6286 032756 

6287 032760 

6288 032764 

6289 032766 

6290 032770 

6291 032772 
6292 

6293 

6294 032772 
032772 

6295 032774 

6296 033000 

6297 033010 

6298 033012 

6299 033014 

6300 033016 



104413 
004737 
040210 
032667 
000204 
172070 
005037 
104252 
000403 
104262 
000401 
032634 



104413 
004737 
040211 
032700 
000205 
174410 
000240 
005037 
104252 
000401 
104263 



104413 
004737 
040212 
032740 
000210 
171010 
000240 
005037 
104252 
000401 
104264 



104413 
004737 
040213 
033000 
000412 
171410 
000240 



033036 
070107 



000001 
033320 



062426 



033036 
033445 



033320 



056677 



033036 
165411 



033320 



046252 



033036 
045654 



054542 



11$: 



;TEST ADDD MODE 7 





LPERR 




.-SET UP THE LOOP ON ERROR 




JSR 


PC.CORSUB 


1$: 


.WORD 


40210,70107.62426.55555 ;ACO 


2S: 


.WORD 


10$-1 


;R0 


3$: 


204 




;FPS 


4S: 


ADDD 


ai(RO).Aco 


.-TEST INSTRUCTION 




CLR 


CORFLG 






("RROR 


♦252 


.•REPORT FAILURE NO TRAP 






11$ 




5S: 


E' 'OR 


♦262 


.-CORRECT FLOWS FAILED. 


BK 


11$ 


10S: 


.WORD 


1$ 





11$: 

.-TEST DIVD MODE 
C0R11: 

LPERR 

JSR 

1$: .WORD 
2$: .WORD 
3$: 205 
4$: DIVD 

NOP 

CLR 

ERROR 

BR 

5$: ERROR 
11$: 

.-TEST nULD NODE 
C0R12: 



1 

.-SET UP THE LOOP ON ERROR ADDRESS. 

PC.CORSUB 

40^11.33445.56677.001122 ;ACO 
1$ ;R0 
;FPS 

(RO).ACO .'TEST INSTRUCTION 



CORFLG 
♦252 
11$ 
♦263 





LPERR 






JSR 


PC.CORSUe 


1$: 


.WORD 


40^12.165411 


2$: 


.WORD 


1$ 


3$: 


.WORD 


210 


4$: 


NULD 


(RO) ,AC0 




NOP 






CLR 


CORFLG 




ERROR 


♦252 




BR 


11$ 


5$: 


ERROR 


♦264 



11$: 

.TEST NODD NODE 
C0R13: 

LPERR 
JSR 

1$: .WORD 
2$: .WORD 
3$: .WORD 
4$: NODD 
NOP 



.•REPORT FAILURE. NO TRAP. 
.•CORRECT FLOWS FAILED. 

.-SET UP THE LOOP ON ERROR ADDRESS. 

>52,63650 ;ACO 
;R0 
;FPS 

.•TEST INSTRUCTION 

;REPORT FAILURE, NO TRAP. 
.•CORRECT FLOWS FAILED. 



1 

.SET UP THE LOOP ON ERROR ADDRESS. 

PC.CORSUB 

40^3.45654.54542,171623 .ACO 



1$ 

412 

(RO).ACO 



RO 
FPS 

TEST INSTRUCTION. 
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SEQUENCE 



6301 
6302 
6303 
630A 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6313 
63U 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 
6344 
6345 
6346 
6347 
6348 
6349 
6350 
6351 
6352 
6353 
6354 
6355 
6356 
6357 



033020 005037 033320 

03302< 104252 

033026 000401 

033030 104265 

033032 000137 033336 



.REPORT FAILURE NO TRAP. 



5S: 
11$: 



CLR CORFLG 

ERROR ^252 

BR IIS 

ERROR ^265 :CORRECT FLOWS FAILED. 

JMP CORDONE .-FINISHED TEST! 



THIS SUBROUTINE, C0RSU8, IS CALLED TO SET UP THE OPERANDS 
AND CHECK THE RESULTS IN THIS TEST. IT IS CALLED THUS: 



1$ 
2S 
3S 
4$ 



5$: 

10$: 
11$: 



JSR 

.WORD 

.WORD 

.WORD 

INST 

ADR 

ERROR 
BR 

ERROR 
BR 

.WORD 



PCCORSUB 
X # X f X f X 
X 
X 



♦252 
11$ 
♦N 
11$ 

ADDRESS 



;ACO OPERAND 

:R0 

;FPS 

.TEST INSTRUCTION TO BE 
.EXECUTED. 

.AN ADDRESS OFFSET FOR 
.CERTAIN NODES OR NOP. 
:N0 TRAP ERROR. 

.•CORRECT FLOWS FAILURE. 
.OPTIONAL FOR CERTAIN MODES. 
.•OPTIONAL FOR CERTAIN MODES. 



CORSUB WILL PICK UP A POINTER TO THE AR6UP€NTS. IN R1. ACO. RO AND 
THE FPS WILL BE SET TO THE DESIGNATED VALUES. THEN THE TEST MODULE 
WILL BE SET UP TO INTERRUPT AND THE INSTRUCTION AT 4$ EXECUTED. IF 
NO TRAP OCCURS THEN THE TEST MODULE IS FAULTY. WHEN THE TRAP OCCURS 
THE PC ON THE STACK SHOULD BE 4$. AND ACO. RO AND THE FPS SHOULD NOT 
HAVE BEEN MODIFIED. IF EVERYTHING IS CORRECT CORSUB WILL RETURN TO 
5$ PLUS TWO. IF AN ERROR IS DETECTED THEN CORSUB WILL RETURN TO THE 
ERROR REPORT AT 5$. 

NOTE THAT A FLAG. CORFLG. IS SET TO -1 WHEN AN INTERRUPT IS PENDING. 
CORFLG IS ZERO OTHERWISE. 



033036 


005037 


033320 


CORSUB: 


CLR 


033042 


012601 






NOV 


033044 


0^0102 






MOV 


033046 


012700 


000200 




NOV 


033052 


170100 






LDFPS 


033054 


172412 






LDD 


033056 


016100 


000012 




MOV 


033062 


170100 






LDFPS 


033064 


016100 


000010 




MOV 


033070 


010102 






MOV 


033072 


062702 


OOOOU 




ADD 


033076 


010237 


001236 




MOV 


033102 


005037 


177776 




CLR 


033106 


012777 


033134 


000220 


MOV 


033114 


012737 


^77777 


033320 


MOV 


033122 


012777 


y77777 


000202 


MOV 


033130 


000161 


000014 




JNP 



CORFLG ;SET FLAG TO INDICATE NO INTERRUPT 
.•PENDING. 

;GET A POINTER TO THE ARGUMENTS. 
.SET ACO. 



{SP)*.R1 
R1.R2 
#200. RO 
RO 

{R2),AC0 

12(R1}.R0 

RO 

10(R1).RO 
R1,R2 
#14. R2 
R2.iTMP2 

PSW 

#C0RTV.aC0RTRP 
#-1. CORFLG 

#-1.aC0RINT 

14(R1) 



:SET UP THE FPS. 
;SET UP RO. 



SAVE ADDRESS OF INSTRUCTION IN CASE 
OF ERROR. 

CLEAR THE PRIORITY TO ALLOW INTERRUPTS. 

SET UP THE INTERRUPT VECTOR. 

SET THE FLAG TO INDICATE 

AN INTERRUPT IS PENDING. 

ENABLE THE TEST EQUIPMENT'S 

TRAP FUNCTION AND GO 

EXECUTE THE INSTRUCTION. 
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SEQUENCE 



6358 

6359 0331 3A 

6360 033 U0 

6361 033U2 
6362 

6363 

6364 033150 

6365 033152 

6366 033156 

6367 033160 

6368 033164 

6369 033166 

6370 ^33174 

6371 033200 

6372 033204 

6373 033210 

6374 033212 

6375 033216 

6376 033222 

6377 033226 

6378 033232 

6379 033236 
6380 

6381 033240 

6382 033242 

6383 033244 

6384 033250 

6385 033252 

6386 033254 

6387 033260 

6388 033264 

6389 033266 

6390 033270 

6391 033272 
6392 

6393 033276 
6394 

6395 033302 

6396 

6397 

6398 033306 

6399 033312 

6400 033314 
64C1 033316 
6402 

6403 033320 

6404 033322 
6405 

6406 033332 

6407 

6408 

6409 

6410 

6411 033334 
6412 
6413 
6414 



005137 
001060 
012777 



033320 

000000 000162 



;TRAP TO HERE WHEN THE INTERPUPT OCCURS 



CORTV: 



C0« 
BNE 
HOV 



1 f\J£\j't 








J 1 r fj 




rtrtrtortrt 






nuw 


1 7rt1 f\J 

1 ^Ul vc 








LIT fO 


U 1 c f[}c 








MrtU 


174012 








STD 


012737 


033322 


00:240 




nov 


rtl t\t\X7 


rtrt1 JLL 








U 1 \)*tjf 


rtrti 3cn 










rtrti y^L 

UU 1 cj'* 






nuw 


rtl rtl rt3 








MOW 




rtrti ?i? 






nu» 




wwwU 1 V 






ADD 


U 1 CCJf 


rtrti 7L.fs 






MOW 


rt1??T7 


rtrti 

V/w t cjC 






MOW 


rtin?^7 


WW 1 CJv 






MOW 
nuw 


rt31 Art? 








TMP 


001016 








BNE 


022626 








CHP 


020061 


000010 






CMP 


001012 








BNE 










MOV 


012703 


033322 






nov 




000004 

wwwww*^ 






MOV 


vCCCCJ 








CMP 


WW 1 \I\IJ 










077503 








soe 


000161 


000032 






JHP 


000161 


000030 




CORTVO; 


JHP 


011637 


001236 




CORTVl : 


nov 


005037 


033320 






CLR 


022626 








cnp 


104266 








ERROR 


000407 








BR 


OOCOOO 






C0RFL6: 


.WORD 


000000 


OOOOOl 


000000 


CORTHP: 


.WORD 


^7777i, 






CORINT; 


.WORD 


000110 






CORTRP: 


.WORD 



CORFLG .FIRST SEE IF AN INTERRUPT WAS PENDING. 
CORTVl ;IF NOT GO REPORT AN ERROR. 

«0,aCORINT .nAKE SURE THE TEST EOUlPnENT 

IS NOT INTERRUPT ENABLED. 



R4 

#200, R2 
R2 

#C0RTnP,R2 

AC0,(R2) 

#C0RTnP.$THP3 

R0.$TnP5 

R4.$TnP7 

(SP).$Tnpn 

R1,R2 

R2.$TnP4 

#10.R2 

(R25*,$TnP6 

(R2)*.$TnP10 

R2,$TnP12 

(SP).R2 

CORTVO 

(SP)*,(SP)* 

R0.10(R1) 

CORTVO 

R1,R2 

«C0RTnP,R3 
#«.R5 

(R2)+.(R3)* 
CORTVO 
R5,1$ 
32(R1) 

30(R1) 

(SP).STnP2 



CORFLG 
(SP)*.(SP)* 
♦266 
CORDONE 



0 

0,0.0.0 
177774 



110 



.GET THE FPS. 
.GET ACO 



;SEE IF THE TRAP OCCURRED 
;AT THE CORRECT ADDRESS. 

RESET THE STACK. 
SEE IF RO IS CORRECT. 
BR IF NOT CORRECT. 
SEE IF ACO WAS CORRECT 



.BRANCH IF INCORRECT. 

:iF EVERYTHING IS CORRECT THEN RETURN. 

.•CORRECT FLOWS FAILED SC GO REPORT ERROR. 

AN INTERRUPT OCCURRED WHEN THE FLAG 
CORFLG. DID NOT INDICATE THAT ONE WAS 
PENDING SO REPORT 5PURI0US TRAP. 



THIS IS THE ADDRESS, OF THE 

TEST EQUIPMENT'S STATUS REGISTER. 
THE CONTENTS OF CORINT CAN BE MODIFIED 
IF THIS STATUS REGISTk'R'S ADDRESS IS 
CHANGED. 

THIS IS THE ADDRESS OF THE TEST EQUIPMENTS 
TRAP VECTOR. LIKE THE STATUS REGISTER'S ADDRESS 
DESCRIBED inMEDIATELY ABOVE 
THIS VECTOR CAN BE CHANGED. BUT THE 
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6A15 
6A16 
6417 

6418 033336 

033336 104412 



6419 
6420 
6421 

6422 033340 
6423 
6424 
6425 

6426 



CORDONE 



RSETUP 



TST23: 



.SBi'TL END OF PASS ROUTINE 



SEQUENCE 130 



.CONTENTS OF CORTRP MUST INDICATE THE 
.•CHANGE. 



GO INITIALIZE THE FPS AND STACK; AND 
SEE IF THE USER HAS EXPRESSED 
THE DESIRE TO CHANGE THE SOFTWARE 
VIRTUAL CONSOLE SWITCH REGISTER (HAS 
THE USER TYPED CONTROL G?). 



033340 
033340 
033342 
033346 
033352 
033356 
033360 
033364 
033370 
033372 
033374 
033376 
033402 
033404 
033406 
033410 
033414 
033416 
033422 
033424 
033432 
033434 
033434 
033440 

033460 
033460 
033464 
033466 

033472 
033474 
033475 



000004 
005037 
005037 
005237 
100004 
005037 
005237 
005327 
000001 
003402 
000137 
012737 
000001 
033372 
005737 
001007 
005737 
001120 
032737 
001114 

104401 
000407 



005737 
001440 
013746 

104403 
006 
000 



.••INCREMENT THE PASS NUMBER (SPASS) 

.••INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
;*IF SW12=1 INHIBIT TRACE TRAP 
~ THERES A MONITOR GO TO IT 
THERE ISN'T JUMP TO LOOP 



;MF 

;*IF 

SEOP 



001102 
001302 
001324 

001324 
034106 



034034 

001112 
034104 

001777 001324 
033442 

034106 
034106 



1000$: 
SEOPCT: 



999$: 
$ENDCT: 



5000$: 



;;65$: 
64$: 



SCOPE 

CLR 

CLR 

INC 

BPL 

CLR 

INC 

DEC 

.WORD 

BLE 

JMP 

MOV 

.WORD 

$EOPCT 

TST 

BNE 

TST 

BNE 

BIT 

BNE 

TYPE 
BR 

.ASCIZ 

TST 
8EQ 
MOV 

TYPOS 
.BYTE 
.BYTE 



$TSTNM 
$TIMES 
$PASS 
1000$ 
$PASS 
$PASS2 
(PC)* 
1 

999$ 
$DOAGN 
(PC)*,a(PC)* 

1 

$ERTTL 
5000$ 
EPENDS 
$6ET42 
#1777.$PASS 
$GET42 

.65$ 
64$ 

<12><15>/£ND PASS 

$PASS2 
4900$ 

$PASS2.-(SP) 



.•ZERO THE TEST NUMBER 
.•ZERO THE NUMBER OF ITERATIONS 
.•INCREMENT THE PASS NUMBER 
BRANCH IF STILL PLUS 
CLEAR THE PASS COUNTER 
INCREMENT OVERFLOW PASS COUNTER 
.-LOOP? 

NG 
;Y£S 

: RESTORE COUNTER 



SEE IF ANY ERRORS THIS PASS 
BRANCH IF SO TO PRINT THE EOP 
SEE IF EOP MSGS ARE DISABLED 
BRANCH IF SO 

PRINT EOP EVERY 2000TH PASS 
BRANCH IF NOT MULTIPLE OF 1000 



6 
0 



.•TYPE ASCIZ STRING 
.•GET OVER THE ASCIZ 
# / 

SEE IF OVERFLOW HAS NON-ZERO VALUE 
BRANCH IF ZERO 
SAVE $PASS2 FOR TYPEOUT 
TYPE OVERFLOW PA^^ NUMBER IN OCTAL 
60 TYPE— OCTAL ASCII 
TYPE 6 DIGITS 
SUPPRESS LEADING ZEROS 



;DPM002 
;DPM002 
;DPM002 



;DPM002 



DPM002 
DPM002 
DPM002 
DPM002 
DPM002 
DPM002 



;DPM002 
.•DPM002 

:DPM002 



C<FPBCO FPIIF PLTG F>NT PRT B 
END OF PASS ROUTINE 

C33476 005737 001324 

033502 001007 

033504 104401 033512 

033510 000403 
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033520 
033520 
033522 
033530 
C33536 
033540 
033544 

033550 
033550 
033554 
033560 
033564 
033566 
033566 

033572 
033574 
033575 
033576 
033602 
033604 
033610 

033644 
033644 

033650 
033652 
033653 
033654 
C33660 
033664 
033670 
033672 
033700 
033704 
033706 
033712 
033716 

033742 
033742 
033744 
033750 
033754 

033776 
033776 
034002 
034004 
034006 



000426 
012737 
033737 
001013 
104401 
000401 



006237 
006237 
006237 
000761 



070000 
001244 

033546 



001244 
001244 
001244 



013746 001324 



104403 
006 
000 
005737 
001426 
104401 
000415 



001112 
033612 



013746 001112 



104403 
006 
000 
005037 
104401 
105777 
1C0042 
0^3737 
005737 
001017 
005237 
104401 
000411 



000415 
005037 
104401 
000410 



013700 
001414 
005046 
012746 



001112 
001313 
145254 

001146 
034104 

034104 
033720 



034104 
033756 



000042 
034014 



001244 
001324 



001244 



TST 
BNE 
TYPE 
BR 

.ASCIZ 

BR 
NOV 
BIT 
BNE 
TYPE 
BR 

.ASCIZ 

ASR 
ASR 
ASR 
BR 

mv 

TYPOS 
.BYTE 
.BYTE 
TST 
BEQ 
TYPE 
BR 

.ASCIZ 

HOV 

TYPOS 
.BYTE 
.BYTE 
CLR 

5001$: TYPE 
$GET42: TSTB 
BPL 

nov 

TST 

BNE 

INC 

TYPE 

BR 

;^65$: .ASCIZ 
BR 

SDISAB: CLR 
TYPE 
BR 

;;65$: .ASCIZ 
64S: 

S6T42C: nov 
BEO 
CLR 

nov 



;;67$: 
66$: 

^GuO$ : 
4000$: 



;:69$: 
68$: 



4900$: 



4910$: 



>b%: 



$OASS 
3000$ 
,67$ 
66$ 

100000! 
4910$ 

#70000.$TnP5 

$T«P5,$PASS 

4900$ 

,69$ 

68$ 

10! 

$T«P5 
$TnP5 
$TnP5 
4000$ 

$PASS.-(SP) 



6 
0 

$ERTTL 
5001$ 
,71$ 



/ TOTAL ERRORS THIS PASS / 



;SEE IF PASS COUNT IS ZERO 
.-BRANCH IF NOT 
;;TYPE ASCIZ STRING 
;;6ET OVER THE ASCIZ 



GO TEST $ERTTL 

CHECK 5TH OCTAL DIGIT FIRST 

CHECK TO SEE IF OCTAL DIGIT IS ZERO 

BRANCH OUT IF ZERO 

.•TYPE ASCIZ STRING 

.-GET OVER THE ASCIZ 



.-SHIFT THE THREE BITS RIGHT 3 PLACES 



.•BRANCH BACK TO CHECK $PASS 

;;SAVE $PASS FOR TYPEOUT 
;;TYPE PASS NUnBER IN OCTAL 
;;G0 TYPE— OCTAL ASCII 
;;TYPE 6 DIGITS 
;: SUPPRESS LEADING ZEROS 
:SEE IF ANY ERRORS THIS PASS 
.•BRANCH AROUND REPORT IF NONE 
;;TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 



$ERTTL,-(SP) 



6 

0 

$ERTTL 

.$CRLF 

a$TKS 

$GT42C 

$TKB,$TnP5 

EPENDS 

$DISAB 

EPENDS 

.65$ 

64$ 

<CRLF>!E0P'S 



;;SAVE $ERTTL FOR TYPEOUT 

:; TOTAL NUMBER OF ERRORS IN OCTAL 

;;60 TYPE— OCTAL ASCII 

;;TYPE 6 DIGITS 

;; SUPPRESS LEADING ZEROS 

;; CLEAR ERROR TOTAL 

:;TYPE CARRIAGE RETURN, L^NE FEED 

;IS A CHARACTER tMITING? 

'BRANCH IF NOT 

iuASTE THE CHARACTER, CLEARING READY 
;SEE WHICH STATE ENABLE/DISABLE IS IN 
.•BRANCH IF EOP'S DISABLED 
.SET FLAG DISABLING PRINTOUTS 
;;TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 
DISABLED I<CRLF> 



$GT42C .-BRANCH OVER ENABLE ROUTINE 

EPENDS .-CLEAR FLAG ENABLING PRINTOUTS 

,65$ .-.TYPE ASCIZ STRING 

64$ ::GET OVER THE ASCIZ 

<CRLF>! EOP'S ENABLED !<CRLF> 



SEQUENCE 131 



;DPn002 
;DP«002 



DPT 002 
DP«002 
DPn002 

opnoo2 



DPnO02 

Dpnoo2 

DPn002 
DPn002 



;DPn002 
;DP«002 



DPn002 
DP«002 

Dpnoo2 

DPn002 
DPn002 
DPn002 



;DPn002 
:DPH002 



»r42,R0 
$DOAGN 

-(SP) 

#$CLR.T.-(SP) 



.-.-GET nONITOR ADDRESS 
: .-BRANCH IF NO nONITOR 
.-.INSURE THE "T" BIT IS CLEAR 
.-.SETUP FOR AN RTI OR RTT 



CKFPBCO FP11F FLTG PNT PRT B 
END OF PASS ROUTINE 
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SEQUENCE 132 



034012 000426 



03A0U 
03A0U 
034020 
034022 
034024 
034026 
034030 
034032 
034034 
034034 
034036 
0340/.2 
034050 
034052 
034056 
034060 
034064 
034070 



034100 



013700 
001405 
000005 
004710 
000240 
000240 
000240 

104400 
042716 
032777 
001005 
005137 
100402 
052716 
012746 
000002 



034072 

034072 000137 

034074 005214 

034076 000000 



377 



6427 
6426 



034104 000000 
034106 000000 



000042 



000020 
010000 

034076 

000020 
034072 



145070 



377 



SCLR.T; 



SENDAD: 



SDOAGN: 



IS: 

SRTRN: 



SLOOP: 

SRTNAD; 
ST8IT: 
000 SENULL : 

EPENOS: 
SPASS2; 



BR 



HOV 

BEQ 

RESET 

JSR 

NOP 

NOP 

NOP 

TRAP 
SIC 
BIT 
BNE 

con 
ani 

BIS 
RTl 



J/V> 

.WORD 

.WORD 

.BVTE 

.EVEN 

.WORD 

.WORD 



SRTRN 



d«42,R0 
SDOAGN 

PC.(RO) 



#20, (SP) 

«8IT12«aSUR 

IS 

ST8IT 
IS 

#20, (SP) 
#SL00P.-(SP) 



a(PC)* 

LOOP 
0 

-1,-1.0 

0 
0 



::60 DO AN RTI OR RTT TO LOAD THE PSV 
;;yiTH A CLEARED 'T" BIT 

.-.INSURE RO CONTAINS THE MONFORS 

; .RETURN ADDRESS 

;; CLEAR THE WORLD 

;;G0 TO MONITOR 

;;SAVE ROOM 

;;FOR 

;;ACT11 

;;PUSH OLD PSW AND PC ON STACK 
;; CLEAR THE "T" BIT 
;;RUN WITH TRACE TRAP? 
* *8R IF NO 

;;IS IT TIME FOR TRACE TRAP 

;;8R IF NO 

;;SET TRACE TRAP 

;;JinP TO START OF TEST 

; .-RETURN— THIS IS CHANGED TO 

.-.-AN "T^TT" IF "RIV IS A LEGAL 

; .-INSTRUCTION 

; .-RETURN 

,-.-*T' BIT STATE INDICATOR 
;;NULL CHARACTER STRING 

.LOCATION FOR EOP PRINT FLAG 
.LOCATION FOR PASS COUNT OVERFLOW 



;0PM002 
;DPM002 



.SBTTL SCOPE HANDLER ROUTINE 



034110 
034110 
034112 
034120 



034124 
034130 
034136 
034142 
034146 



104406 
032777 
001131 



034122 000416 



013746 
012737 
005737 
012637 
000500 



000004 
034150 
177060 
000004 



000004 



.-•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

.-•AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0» 

.-•AND LOAD THE ERROR FLAG (SERFL6) INTO DISPLAY<15:08> 

.-•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

.■•SWl4s1 LOOP ON TEST 

.-•SW11=1 INHIBIT ITERATIONS 

.-•SW09=1 LOOP ON ERROR 

;*SW08-1 LOOP ON TEST IN SWR<7:0> 

.••CALL 

;• SCOPE ;;SCOPE=IOT 



040000 145020 IS 



SSCOPE: 

CKSWR 
BIT 
BNE 

:#####START OF 

SXTSTR: BR 

MOV 
MOV 

TST 
MOV 
BR 



::TEST FOR CHANGE IN SOFT-SWR 
#8IT14.aSWR ;:LOOP ON PRESENT TEST? 
SOVER :;YES IF SWU*! 

CODE FOR THE XOft t§STER##### 



6S 

a#ERRVEC,-(SP) 

#5S.a#ERRVEC 

a#1^7060 

(SP)*.a#ERRVEC 

SSVLAD 



;;IF RUNNING ON THE "XOR" TESTER CHANGE 
.-.-THIS INSTRUCTION TO A "HOP" (NOP=240) 
;.-SAVE THE CONTENTS OF THE ERROR VECTOR 
;;SET FOR TIMEOUT 
;;TIME OUT ON XOR? 
.-.-RESTORE THE ERROR VECTOR 
;;G0 TO THE NEXT TEST 



D 11 
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022626 






5S: 


CHP 




034152 


012637 








NOV 






000440 








BR 


7$ 


034160 






6$::m/r/rEND OF 


rnOF FOR THP VOR 


034160 


032777 


uuu*»uu 


144752 




BIT 


■vol ( WW « sown 


034166 


001404 








Bcu 




034170 


127737 


1 LLJLL 


001102 




CWro 




034176 


001502 








DC A 




034200 


013737 


1 1 1 fOO 


034422 


2»: 


wv 


177766 rPSAVF 


034206 


032737 




034422 




BIT 


MI TOO CPSAVF 


034214 


001406 








Bell 




034216 


042737 


nnnnn ^ 


1 77766 




BJt 


MI TOO 1777^^ 


034224 


104177 








CUT 


♦ 177 


034226 


105037 


UU 1 1 U J 






ILKo 


tPRFI G 
9cnr Lu 


034232 


105737 


UU 1 1 U J 






Id Id 


tFRFI d 


034236 


001421 








Bell 


3$ 


034240 


123737 




001103 






iFRMAX iERFLG 


034246 


101015 








DU t 

Bni 


31 


034250 


032777 


nnmnn 
UU 1 uuu 


144662 




Hi 1 




034256 


001404 








Bcu 


4$ 


034260 


013737 


UU 1 M u 


001106 




nUV 


<l PFRR 11 PADR 


034266 


000446 








On 




034270 


1C5037 


UU 1 1 U J 






ri DO 




034274 


005037 


nni X09 

UU 1 JVC 






ri D 
ILN 


iTIMFS 


034300 


000415 








BD 

Bn 




034302 


032777 


on Anno 


144630 


j9 : 


BIT 
Bi 1 




034310 


001011 








BNC 


It 


034312 


005737 


001 XOL 
UU 1 jCH 






TCT 




034316 


001406 








BCO 
BcU 


It 


034320 


005237 


001 in^ 

UU 1 1 UH 






f kir 
INI 




034324 


023737 


001 TO? 
UU 1 JVC 


001104 




mo 




034332 


002024 








But 




034334 


012737 


oonnni 


001104 




nuv 




034342 


013737 


n^AAPn 

UJHHcU 


001302 




nu» 




034350 


105237 


nni 1 n? 

UU 1 1 vc 






into 




034354 


113737 


nni in? 

UU 1 1 Uc 


001322 




MOVB 




034362 


011637 


nni inA 

UU 1 1 UO 








\ Or / 0 9^r nwf\ 


034366 


011637 


001 110 
UU 1 1 1 u 








I Or / •wr Cnfl 


034372 


005037 


nni ^nA 

UU 1 JvH 






CLR 




034376 


112737 




001115 




novB 




034404 


013777 


nni 1 OP 

UU 1 1 uc 


A t t K 9 A 

144530 


SOVER: 


NOV 


tTSTNN aDISPLAY 


034412 


013716 


nni 1 OA 

UU 1 1 UO 






NOV 


#Ur 0 \ Or / 


034416 


000002 








RTI 




034420 


000001 






SMXCNT: 


1 




034422 


000000 






CPSAVE: 


.WORD 


0 



6429 
6430 



SEQUENCE 



.•CLEAR THE STACK AFTER A TINE OUT 
;;REST0RE THE ERROR VECTOR 

.LOOP ON THE PRESENT TEST 

TESTER#m# 
;;LOOP ON SPEC. TEST? 
' 'BR IF NO 

;;0N THE RIGHT TEST? SWR<7:0> 
' 'BR IF YES 

•NOVE CPU ERR REG VALUE TO LOC FOR TST ;DPN001 
;SEE IF THE POWER NONITOR BIT IS ON .'DPN001 
IBRANCH TO CONTINUE ROUTINE IF CLEAR :DPN001 
; CLEAR THE BIT FOUND TO BE SET .'DPN001 
;CALL SPECIAL POWER FAIL BIT ERROR CALL .'DPN001 
; CLEAR THE ERROR FLAG FOR NEXT TEST ;DPN001 
;WAS THERE AN ERROR? 
* 'BR IF NO 

;;NAX. ERRORS FOR THIS TEST OCCURRED? 
;;BR IF NO 
;;LOOP ON ERROR? 
' 'BR IF NO 

••SET LOOP ADDRESS TO LAST SCOPE 
.'.•ZERO THE ERROR FLAG 

;:CLEAR THE NUNBER OF ITERATIONS TO NAKE 
.-.•ESCAPE TO THE NEXT TEST 
..INHIBIT ITERATIONS? 
;;BR IF YES 

;;IF FIRST PASS OF PR06RAN 
INHIBIT ITERATIONS 
::INCRENENT ITERATION COUNT 
;: CHECK THE NUPBER OF ITERATIONS MADE 
;:BR IF NORE ITERATION REQUIRED 
.-.'REINITIALIZE THE ITERATION COUNTER 
:;SET MfOER OF ITERATIONS TO DO 
.-.-COUNT TEST MMBERS 
:;SET TEST NUMBER IN APT NAILBOX 
.-.SAVE SCOPE LOOP ADDRESS 
.-.-SAVE ERROR LOOP ADDRESS 

CLEAR THE ESCAPE FRON ERROR ADDRESS 
.'.-ONLY ALLOW ONE(I) ERROR ON NEXT TEST 
; .-DISPLAY TEST NUNBER 
.-.-FUDGE RETURN ADDRESS 
- 'FIXES PS 

!-:NAX. NUNBER OF ITERATIONS 

.-LOCATION TO SAVE CPU ERR REG CONTENTS ;DPN001 



.S8TTL ERROR HANDLER ROUTINE 



:*THIS ROUTINE WILL INCRENENT THE ERROR FLAG AND THE ERROR COUNT. 
;*SAVE THE ERROR I TEN NUNBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERTYPE ON ERROR 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
.'•SW15=1 HALT ON ERROR 

.'•SW13=1 INHIBIT ERROR TYPEOUTS 

;»SW10=1 BELL ON ERROR 

.'♦SW09=1 LOOP ON ERROR 
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• 






t\r\c\f\f\c\ 






lOdnVC • 












CCDDnD • 
9Cnnvn • 






1 UhhUO 












1 ft55T7 

1 yjjcji 


nniin7 
uu 1 1 U J 




7%- 

f 


I Mm 




AA1 77^ 
UU \ f fj 








DCw 




ftl 7777 


uu 1 1 Uc 


1 HHHf 0 






CWLLLL 


nXJ777 


005000 


1 •♦•♦•♦00 




RIT 

Dl 1 




UU 1 HUc 








DC W 


U j*»h3"i 


1 v*tHU 1 


noi 70A 

uu 1 jUO 






TVPF 


f\XLLtJ\ 
Uj*»hOU 


UU3c J' 


001 115 
uu MIC 




1 1 • 






ni 1 AT7 


001 1 1 A 
uu 1 1 1 0 






MOV 




1A?7^7 
lOcf jl 


000005 


001 1 1 A 
uu 1 1 1 0 








1 1 7777 

1 1 1 f jf 


1 •»•»•♦ 1 *» 


001 114 
UU lilt 




nv vo 




1P9777 
Iccf J' 


OOf 1 77 

UUv 1 f f 


001114 

uu lilt 








Uw l*ic 1 








DC w 




ni T7l7 


1777AA 
\ f f f 00 


0^4475 

Ujttct 




MOt/ 
rivw 






000001 


0^4455 

Ujttct 




RIT 

Dl 1 




\J\J \ H \C 








RFO 

DC* 






000001 


1 7776* 

\ f f f WO 






f\XL^Lf\ 


ni ^7^7 

U 1 Jf Jl 


001 ^^f^ 

uu 1 1 1 0 


074454 




MOV 




1 v*l 1 f f 








ERROR 




017777 

U 1 Jf Jf 


0^4454 

UjH*»c*t 


001116 

WW 1 1 1 U 




MOV 










1 V V V* • 






0^5777 

UJtf f f 


050000 

UcUUUU 






BIT 




OOlOOiL 








BMP 




00^7X7 
Uv*»f Jf 


077040 
UJf vlw 






1 •■ 




lOAAOl 

1 UHtU 1 


001 ^1 \ 
Uw 1 J 1 J 






to 








vv ■ 






1P?7^7 

1 CCI Jl 


000001 

vvvvv 1 




CMPfi 




001 0A7 

W 1 Uwf 








BNE 

one 




1 1 Jf Jl 


001114 

vv lilt 


vJ"»Ofc V 




MOVB 


U.9tO It 


Wti Jf 


VJJQf C 






W Vr% 




000 

wvv 








BYTE 

• 0 lib 


U JtOC 1 


000 
vvv 








BYTE 




000777 

vWvf f 1 






on 




00^7^7 
WUJf Jf 


0^4494 

V/jttCt 




2S: 


TST 

1 <j 1 




00100^ 








BNF 




00S777 

VVJf f f 


144^0? 

1 tt JVC 






TST 




100009 








Or U 




OAflflOO 
uwwv 








HAI T 




104A0A 






J* • 






0T3777 

VJCf f f 


001000 

W i wvU 




Rir 

DJ i 




OOIAO^ 








RFQ 




00^7^7 

WJf Jf 


0^494 






TST 

1 w 1 




001007 












01 X71A 
V 1 Jf 1 0 


001110 

uu 1 1 1 V 






MOV 




00^7^7 

WJf Jf 


001 t04 

vv 1 JV"» 




4t- 


TST 




0fl140S 

vv 1 Ivj 










03467A 


005737 


034424 






TST 


03A700 


001002 








BNE 


034702 


013716 


001304 






MOV 


034706 








5$: 




034706 


022717 


034024 


000042 




CMP 


034 7U 


001001 








BNE 
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SEQUENCE 1 5'. 



N ;;F.RROR=EMT AND N=ERROR ITEM NUMBER 

0 :LOC'N TO HOLD SERRPC DURING DUAL ERR 



.DPMOOI 



SERFLG 
7$ 

STSTNM.aDISPLAY 

#8IT10.aSUR 

IS 

,$8ELL 

$ERTTL 

(SP). SERRPC 

#2, SERRPC 

aSERRPC.SITEMB 

#177,SITEMB 

1000S 

1 77766, CPSAVE 
«BJTOO,CPSAVE 
1000s 

#81 TOO, 177766 
SERRPC, IBSAVE 
♦ 177 

IBSAVE. SERRPC 

«8in3,aswR 
20s 

PC.ERTyPE 
,$CRLF 

#APTENV,SENV 
2S 

SJTEnB.21S 
PC,SATY4 

0 
0 

22s 

|bsave 
asuR 

3S 



«BIT09,8SWR 
4S 

IBSAVE 
4S 

SLPERR,(SP) 

SESCAPE 

5$ 

|bsave 

sescape, (sp) 

#SENDAD,42 
6S 



;;TEST FOR CHANGE IN SOFT-SUR 

;;SET THE ERROR FLAG 

;; DON'T LET THE FLAG GO TO ZERO 

DISPLAY TEST NUMBER AND ERROR FLAG 
;:6ELL ON ERROR? 
;;N0 - SKI.'^ 
::RING BELL 

;;COl'NT THE NUMBER OF ERRORS 
::GET ADDRESS OF ERROR INSTRUCTION 

.-.STRIP AND SAVE THE ERROR ITEM CODE 
;SEE IF THIS IS THE POWER FAIL CALL 
.BRANCH AROUND ROUTINE IF IT IS 
;nOVE CPU ERR REG TO CPSAVE FOR TEST 
.-SEE IF POWER MONITOR BIT IS SET 
.•BRANCH IF OK 
.'CLEAR THE BIT FOUND SET 
.SAVE SERRPC 

.-CALL SPECIAL POWER MON BIT ERROR 
.-RESTORE SERRPC 

;;SKIP TYPEOUT IF SET 

.-.-SKIP TYPEOUTS 

:;G0 TO USER ERROR ROUTINE 



: .-RUNNING IN APT MODE 
;;NO,SKIP APT ERROR REPORT 
:;SET ITEM NUMBER AS ERROR NUMBER 
.'.■REPORT FATAL ERROP TO APT 



;;APT ERROR LOOP 

;SEE IF POWER FAIL ERROR CALL 

:BRANCH IF NOT - HALT NOT ALLOWED 

.-.-HALT ON ERROR 

;;SKIP IF CONTINUE 

.-.HALT ON ERROR! 

:;TEST FOR CHANGE IN SOFT-SWR 

::L0OP ON ERROR SWITCH SET? 

;:BR IF NO 

.-SEE IF THIS IS THE PWR MNTR BIT ERROR 
.-BRANCH IF SO - NO FUDGING ALLOWED 

FUDGE RETURN FOR LOOPING 
.-.CHECK FOR AN ESCAPE ADDRESS 
;;BR IF NONE 

.SEE IF THIS IS THE PWR MNTR BIT ERROR 
.-BRANCH IF SO - NO FUDGING ALLOWED 
:. -FUDGE RETURN ADDRESS FOR ESCAPE 

.-.-ACT-II AUTO-ACCEPT? 
; .BRANCH IF NO 



; DPMOOI 
; DPMOOI 
; DPMOOI 
;DPn001 
; DPMOOI 
; DPMOOI 
;DPHG01 
; DPMOOI 



.-DPMOOI 
.-DPMOOI 



.-DPMOOI 
.-DPMOOI 



.DPMOOI 
; DPMOOI 
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SEQUENCE 13S 



6A31 
6432 



034716 
034720 
034720 
034726 
034730 
034734 
034742 
034750 
034752 
034756 



6433 
6434 



034760 
034760 
034762 
034764 
034766 
034770 
034772 
034774 
035000 
035004 
035010 
035014 



035016 
035016 
035022 
035026 
035032 
035036 
035040 
035042 
035044 
035046 
035050 
035052 



000000 

032777 
001013 
011637 
062737 
^ 22777 
001002 
062716 
000002 



001000 144212 



001162 
}7777(i 
mi77 

000002 



001162 
144212 



010046 
010146 
010246 
010346 
010446 
010546 

016646 000022 
016646 000022 
016646 000022 
016646 000022 
000002 



012666 000022 

012666 000022 

012666 000022 

012666 000022 

012605 

012604 

012603 

012602 

012601 

012600 

000002 



6S: 



ERfllO: 



HALT 

BIT 

BNE 

NOV 

ADD 

CHP8 

BNE 

ADD 

RTI 



;;rES 



«ejT09,asuR 

ERM10 

{SP).$REGO 

#-2JrEG0 

#377.8$RfG0 

ERHIO 

«2,(SP) 



;SEE IF ERROR »177 



SBTTL SAVE AND RESTORE R0-R5 ROUTINES 



•SAVE R0-R5 
•CALL: 

• SAVREG 

•UPON RETURN FROM SSAVREG THE 
* 

•TOP (+16) 

• +2 — (♦18) 

• +4 — R5 

• +6 — R4 

• +8 — R3 

•♦10 R2 

•♦12 — R1 
•♦14 — RO 

SSAVREG: 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
RTI 

•RESTORE R0-R5 
•CALL: 

• RESREG 
SRESREG: 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
RTI 



STACK WILL LOOK LIKE: 



RO,-(SP) 
R1,-(SP) 
R2,-(SP) 
R3.-(SP) 
R4.-(SP) 
R5,-(SP) 

22{SP). -(SP) 
22(SP). -(SP) 
22(SP).-<SP> 



{S?)*.22(IP) 
(SP)^.22(SP) 
(SP>^,22(SP) 
(SP)+,22(SP) 
(SP) ♦.RS 
(SP) ♦,R4 
(SP)*, R3 
(SP)*.R2 
(SP)+, R1 
(SP)*. RO 



PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
SAVE 
SAVE 
SAVE 
SAVE 



RO ON 
R1 ON 
R2 ON 
R3 ON 
R4 ON 
R5 ON 
PS OF 
PC OF 
PS OF 
PC OF 



STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

NAIN FLOW 

NAIN FLOW 

CALL 

CALL 



RESTORE PC OF CALL 
RESTORE PS OF CALL 
RESTORE PC OF NAIN FLOW 
RESTORE PS OF NAIN FLOW 
POP STACK INTO R5 
POP STACK INTO R4 
POP STACK INTO R3 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 



.SBTTL TYPE ROUTINE 

• • *t*****************t**«*********^*tt *************** ************ 

;*ROUTINE TO TYPE ASCI2 NESSAGE. NESSA6E NUST TERMINATE WITH A 0 BYTE. 
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SEQUENCE 



035054 
035060 
035062 
035064 
035066 
035070 
035074 
035102 
035104 
035112 
035114 
035120 
035124 
035126 
035134 
035136 
035140 
035142 
035144 
035146 
035152 
035154 
035160 
035162 
035166 
035170 
035172 
035174 
035176 
035202 
035204 
035210 
035214 
035216 

035222 
035226 
035230 
035234 
035240 

035242 
035246 
035252 
035260 



105737 
100002 
000000 
000430 
010046 
017600 
122737 
001011 
13273" 
001405 
010037 
004737 
000000 
132737 
001003 
112046 
001005 
005726 
012600 
062716 
000002 
122716 
001430 
122716 
001006 
005726 
104401 
001313 
105037 
000755 
004737 
123726 
001350 
013746 

105366 
002770 
004737 
105337 
000770 

112716 
004737 
132737 
001372 



001157 



000002 
000001 



001336 



000100 001337 

035124 
035662 

000040 001337 



000002 
000011 
000200 

035414 

035266 
001156 

001154 

000001 

035266 
035414 



000040 
035266 
000007 



;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



;*N0TE1 
;*N0TE2 
; •N0TE3 



SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



;*CALL: 

.••1) USING A TRAP INSTRUCTION 



;*0R 



iTYPE; 



IS: 



61S: 
62S: 

2S: 



60S: 
3S: 

4S: 



5$: 
6S: 



7S: 



TYPE 

TYPE 
MESADR 

TSTB 

BPL 

HALT 

BR 

NOV 

MOV 

CMP8 

BNE 

BITS 

BEQ 

MOV 

JSR 

.WORD 

BITS 

BNE 

MOVB 

BNE 

TST 

NOV 

ADD 

RTl 

CMP8 

BEQ 

CMP8 

BNE 

TST 

TYPE 

SCRLF 

CLRB 

BR 

JSR 

CNP8 

BNE 

NOV 

DECS 
BLT 
JSR 
DECS 
BR 



.MESADR 



-MESADR IS FIRST 'ADDRESS OF AN ASCIZ STRING 



STPFLG 
IS 

3S 

RO,-(SP) 
a2(SP).R0 
fAPTENV.SENV 
62S 

#APT SPOOL, SENVM 
62S 

R0.61S 
PC.SATY3 

0 

#APTCSUP,SENVM 
60S 

(flO)*.-(SP) 
4S 

(SP)* 

(SP)4.R0 

f2,(SP) 

#HT,(SP) 
8S 

#CRLF,(SP) 
5S 

(SP)* 



SCHARCNT 
2S 

PCSTYPEC 
SFILLC. (SP)* 
2S 

SNULL. -(SP) 

KSP) 
6S 

PCSTYPEC 
SCHARCNT 
7S 



035414 



•HORIZONTAL TAB PROCESSOR 
8S: NOVB #• .(SP) 
9S: JSR PCSTYPEC 

BITB #7. SCHARCNT 
BNE 9S 



;;IS THERE A TERNINAL? 
;;BR IF YES 

::HALT HERE IF NO TERMINAL 

.-.LEAVE 

* - SAVE RO 

:;GET ADDRESS OF ASCIZ STRING 

;: RUNNING IN APT NODE 

.-.-NO. GO CHECK FOR APT CONSOLE 

.-.-SPOOL MESSAGE TO APT 

;.-NO.GO CHECK FOR CONSOLE 

; .-SETUP MESSAGE ADDRESS FOR APT 

;; SPOOL MESSAGE TO APT 

; .-MESSAGE ADDRESS 

;;APT CONSOLE SUPPRESSED 

;; YES, SKIP TYPE OUT 

.-.-PUSH CHARACTER TO BE TYPED ONTO STACK 
::BR IF IT ISN'T THE TERMINATOR 
;;IF fERMINATOR POP IT OFF THE STACK 
.-.RESTORE RO 
.-.-ADJUST RETURN PC 
; .-RETURN 

; .-BRANCH IF <HT> 

;. 'BRANCH IF NOT <CRLF> 

;;POP <CR><LF> EQUIV 
.-.TYPE A CR AND LF 

;; CLEAR CHARACTER COUNT 

;;6ET NEXT CHARACTER 

.-.-GO TYPE THIS CHARACTER 

;;IS IT TIME FOR FILLER CHARS.? 

;;IF NO GO GET NEXT CHAR. 

::GET » OF FILLER CHARS. NEEDED 

:;AND THE NULL CHAR. 

::DO£S A NULL NEED TO BE TYPED? 

:;BR IF NO— GO POP THE NULL OFF OF STACK 

;;G0 TYPE A NULL 

:;D0 NOT COUNT AS A COUNT 

.-.-LOOP 

:. -REPLACE TAB WITH SPACE 
.'.-TYPE A SPACE 
.-.'BRANCH IF NOT AT 
.'.-TAB STOP 
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3i-13 



6435 
6436 





Wj f CO 








T5T 


<SP)* 


• -POP CPACF OFf CTAfK 




AAA 73^ 








Dn 












9 1 1 r C L • 










10^777 
1 U J f f r 


^LXA^y 

1 •» JOJC 






T5TR 




•■CHAR IM XVBD BUFFFR'' 


\JjJCf c 


1 ftAn?9 
1 l/vvcc 








RPI 

Or L 


10$ 


• -RR TF NOT 




ni 774<^ 
V 1 r r "fO 








MOW 


#177600 (SP) 


; ; 6E T CHAR 


\JJJJ\AJ 




1 ' f Ovv 








■'■STRIP EXTRAMEOUS BITS 




ICC' lO 


noon? 7 

VVVWC J 






TMPA 


#SXOFF.(SP) 


■ 'UAS CHAR XOFF 


\JJJJ 1 V 


vv 1 U I c 








Oi^C 


102S 

1 VC V 


• -BR IF NOT 


\JjJJ 1 c 








lOli- 

1 V 1 9 ■ 








\JjJJ 1 c 


105777 


^LXA7t\ 






T5TR 




::UAIT FOR CHAR 












BPl 


101$ 




UJJ Jew 


1 1 771 <^ 


1 H JOCC 








#177600 (SP) 

ir ■ • • VVV 0 \ t*r / 


■ ■ GE T CHAR 


U J J JCH 




1 771^00 

Iff vvv 






RIC 


■ 'STRIP IT 

0 0 ^ t r\ A ' Al 




■ CC ' ■ o 


000071 

vvvvC i 








#tXON (SP) 


• •uAS IT XON'' 

0 0 wn«j A 1 nwrv • 












RNF 


101$ 

• V 1 * 


■ -BR IF NOT 

0 0 *J" A ■ *»w I 








1 VC# • 








00S77^ 

vv J f CO 








TST 




••FIX STACK 

00' An 










lOf - 

1 V# ■ 










105777 
1 \jj iff 


1Z7A04 

1 JWV"I 






TSTB 




•-UAIT UNTIL PRINTER IS READY 


V J J J^"t 


100'?75 








BPL 


10$ 






1 C WWC r 


00000? 

VVvVVC 


000021 

VVVVC 1 






?(SP) #$XON 


••IS CHARACTER A RANDOM XON'' 


nx^xic 


001420 

VV 1 ^cv 






BEQ 


$ryPEx 


.'.'BRANCH IF YES 


C\X\X^(k 

\J J J J 


116677 


000002 

VVVWVC 


143566 




novB 

nv TO 


2(SP) i$TPB 


'•'•LOAD CHAR TO BE TYPED INTO DATA 


C\XKXiM 


122766 


00001 s 

vwv ' J 


000002 

vwwc 




CMPB 


#CR 2(SP) 


"IS CHARACTER A CARRIAGE RETURN'' 




001 OG^ 

vv 1 vv J 








one 




• 'BRANCH IF NO 






035414 






CLRB 


icHARCMT 


..ycc..riCAD CHARACTER COUNT 

00' Vkk^** Wl W V 1 VVWV 1 


035400 


000406 








BR 


$TrPEX 


;;EXIT 


035402 


122766 


000012 


000002 


1$: 


C«P8 


#LF,2(SP) 


::IS CHARACTER A LINE FEED? 


035410 


001402 








BEQ 


$TYPEX 


.'.BRANCH IF YES 


035412 


105227 








INCB 


(PC>* 


;; COUNT THE CHARACTER 


035414 


000000 






$CHARCNT:.U0RD 


0 


;; CHARACTER COUNT STORAGE 


035416 


000207 






STrPEX: 


RTS 


PC 





SEQUENCE 



HJD001 
NJD001 
NJDC01 
njDOOl 
FUDOOI 

njDOOl 

NJD001 
NJdOOl 

njDOOi 

NJD001 
NJD001 

njDOOi 
njDOOi 

HJD001 
MJD001 
MJDOOI 

njDOOl 

RAN0G1 
RAN001 



.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

• ****t ************************************************** ******** 

*THIS ROUTINE IS USED TO CHANGE A 16-eiT BINARY NUMBER TO A 6-DIGIT 
*OCTAL (ASCII) NUMBER AND TYPE IT. 

•$TYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 

.'.'NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 

::N-1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

;;1=TYPE LEADING ZEROS 
::0=SUPPRESS LEADING ZEROS 



NOV 
TYPOS 
.BYTE 
.BYTE 



NUM.-(SP) 

N 
M 



* 
* 
* 
* 

* 

•$TYPON ENTER HERE TO 

•$TVPOS OR $TYPOC 
•CALL: 

• NOV NUM,-(SP) 

• TYPON 
* 

•$TYPOC ENTER HERE FOR 

•CALL: 

• MOV NUM.-(SP) 



TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 



.-.'NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 



TYPEOUT OF A 16 BIT NUMBER 
;; NUMBER TO BE TYPED 
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6437 



035420 
035424 
035432 
035436 
035442 
035444 
035452 
035460 
035466 
035470 
035472 
035474 
035500 
035502 
035506 
035512 
035516 
035522 
035524 
035526 
035530 
035532 
035534 
035536 
035540 
035542 
035546 
035550 
035554 
035556 
035560 
035562 
035564 
035570 
035574 
035600 
035602 
035606 
035612 
035616 
035620 
035622 
035624 
035626 
035630 
035632 
035634 
035642 
035644 
035646 
035647 
035650 
035651 
03565? 



0T646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
006105 
000404 
006105 
006105 
00u105 
010503 
006103 
105337 
100021 
042703 
001002 
005704 
001403 
005204 
052703 
052703 
122703 
001404 
110337 
104401 
105337 
003344 
002402 
005204 
000741 
012605 
012604 
012603 
016666 
012616 
000002 
000 
000 
000 
000 
000000 



occooo 

000001 
035653 
000002 

000001 
000006 
000005 



035653 

000006 
035652 
035651 
000012 



035652 
177770 



000060 
000040 
000040 

035646 
035646 
035650 



035651 



035651 
035653 
035650 



STYPOS: 

STYPOC: 
STYPON: 



IS: 
2$: 

3$: 



000002 000004 



4S: 
5$: 

7$: 

6S: 

8S: 

SOCNT: 

SOFILL; 

SOMODE 



TYPOC 

nov 

novB 

novB 

ADD 

BR 

novB 

HOVB 

novB 
nov 

NOV 
HOV 

novB 

NEC 
ADD 

novB 
novB 

MOV 

CLR 

ROL 

BR 

ROL 

ROL 

ROL 

nov 

ROL 

DECB 

BPL 

BIC 

BNE 

TST 

BEO 

INC 

BIS 

BIS 

CMPB 

BEO 

NOVB 

TYPE 

DECB 

B6T 

BLT 

INC 

BR 

NOV 

NOV 

NOV 

NOV 

NOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 



8(SP),-(SP) 

1(SP).$0FILL 

(SP)*,$0N0DE*1 

#2,(SP) 

fTYPON 

#1.$0FILL 

#6,S0N0DEO 

#5, SOCNT 

R3,-(SP) 

R4.-(SP) 

R5.-(SP) 

SONODE^I ,R4 

R4 

#6,R4 

R4,S0N0DE 

S0FILL,R4 

12(SP).R5 

R3 

R5 

3S 

R5 

R5 

R5 

R5,R3 
R3 

SV.')DE 
7S 

*1 77770, R3 

4S 

R4 

5S 

R4 

#'0.R3 
#• .R3 
#• .R3 
7S 

R3,8S 

ioCNT 

2S 

6S 

R4 

(SP)*,R5 

(SP)*,R4 

(SP)*,R3 

2(SP),4(SP) 

(SP)*.(SP) 

0 
0 
0 
0 
0 



SEQUENCE 138 



;;CALL FOR TYPEOUT 

.-.•PICKUP THE NODE 
;;LOAD ZERO FILL SWITCH 
:;NU«ER OF DIGITS TO TYPE 
: .-ADJUST RETURN ADDRESS 

;;SET THE ZERO FILL SWITCH 
;;SET FOR SIX(6) DIGITS 
.-.-SET THE ITERATION COUNT 
.-.-SAVE R3 
;:SAVE R4 
- 'SAVE R5 

;;6ET THE NUNBER OF DIGIiS TO TYPE 

;: SUBTRACT IT FOR NAX. ALLOWED 

;;SAVE IT FOR USE 

;;GET THE ZERO FILL SWITCH 

.-.-PICKUP THE INPUT NUNBER 

.-.-CLEAR THE OUTPUT WORD 

;; ROTATE NS8 INTO "C" 

::G0 DO NS8 

;;FORN THIS DIGIT 



.-.-GET LS8 OF THIS DIGIT 
.-.-TYPE THIS DIGIT? 
;;BR IF NO 
;;GET RID OF JUNK 
.-.-TEST FOR 0 
.-.•SUPPRESS THIS 0? 
- 'BR IF YES 

••DON'T SUPPRESS ANYNORE O'S 
:;nAKE THIS DIGIT ASCII 
::NAKE ASCII IF NOT ALREADY 

:IS THIS A SPACE CHARACTER? ;DPn002 

.•BRANCH IF SO - DON'T TYPE ;DP«002 

.-.SAVE FOR TYPING 

;;G0 TYPE THIS DIGIT 

;; COUNT BY 1 

;;BR IF NORE TO DO 

:;BR IF DONE 

; .-INSURE LAST DIGIT ISN'T A BLANK 
;:G0 DO THE LAST DIGIT 
.-.RESTORE R5 
.-.RESTORE R4 
* -RESTORE R3 

:;SET THE STACK FOR RETURNING 
• 'RETURN 

••STORAGE FOR ASCII DIGIT 
;;TERNINATOR FOR TYPE ROUTINE 
.-.OCTAL DIGIT COUNTER 
.-.-ZERO FILL SWITCH 
.-.NUNBER OF OIGHS TO TYPE 
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035654 
035662 
035670 
035672 
035700 
035700 
035702 
055704 
035710 
035712 
035720 
035722 
035730 
035732 
035736 
035744 
035750 
035752 
035756 
035760 
035762 
035766 
035770 
035774 
036002 
036004 
036012 
036020 
036024 
036030 
036032 
036032 
036036 
036040 
036044 
036046 
036052 
036054 
036062 
036070 
036074 
036100 
036104 
036110 
036112 
036114 
036116 
036117 
036120 



6439 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 
122737 
001031 
132737 
001425 
017600 
062766 
005737 
001375 
010037 
105720 
001376 
163700 
006200 
010037 
012737 
000413 
017637 
062766 
013746 
004737 
000000 

105737 
001416 
005737 
001413 
005737 
001375 
017637 
062766 
005237 
105037 
105037 
105037 
012601 
012600 
000207 
000 
000 
000 

000200 
000001 
000100 
000040 



000001 
000001 



036116 

000001 

000100 

000004 
000002 
001316 

001332 

001332 

001334 
000004 

000004 
000002 
177776 
035054 

036120 

001336 

001316 

000004 
000002 
001316 
036120 
036117 
036116 



036120 
036116 



000001 036120 



001336 
001337 

000004 



001316 

036030 
000004 



001320 
000004 



.SBTTL APT CONMUNKATIONS ROUTINE 



* • 

# A T W 1 • 

SATYl : 


WOVo 


wl ,»rrHi 


• A T WT . 

IATY3: 


WOVo 


.71 ,>nr Lu 




on 


• AT vr 
»AI Tt 


JAl : 


MOVd 


ml ,»rrLu 


•ATYC . 










Dft _/CD> 




imii 
TOV 


D1 ./CD> 




TCTD 


•nrHi 




DC A 


3* 




\.nti 


wAr 1 CNV .•CNV 




D&JC 






D T TD 
Di Its 


jtADTConni cent 










nuv 






WO 




1 c • 


TCT 

151 






BMC 

one 


I* 




nuv 


on uicftAn 


9« • 
c». 


TCTQ 


/onS A 




Okie 


oe 




CI lO 


•MCCAn DA 




A CD 


DO 




nuv 


DO UlCRI GT 
nu>«nduLu 1 




nuv 


ifZ CMCATVDP 




PD 

on 


ce 
5» 


• 

39' 


nuv 


or/ ."»• 




Ann 


jio A /CD) 




nuv 


17777A -fCD) 

If f f fO. l Or / 






or CTVDP 


AC • 




A 

u 


d • 






1 u* • 


TCTB 
1 9 lO 


CCFI K 
•r r Lu 




oca 

OCU 


13C 




TCT 


•cnv 




DCW 




111* 


TCT 


CMCCTVDF 




ONC 


lie 




nuv 


aA/CDl CFATAI 
•<» I Or ^ , »r A 1 AL 




Ann 


»C » HI Or f 






•McrTVPF 

•nOU 1 TrC 




fl OB 


•r r LU 




ri DB 


CI CI R 




ri DB 






NOV 


(SP)'f RI 




MOV 


(SP) ♦.RO 




RTS 


PC 


$«FL6: 


.BYTE 


0 


$LFL6: 


.BYTE 


0 


$FFLG: 


.BYTE 


0 




.EVEN 





APTSIZE=200 
APTENV=001 
APTSP0OL=100 
APTCSUP=040 



::T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

:;T0 ONLY REPORT FATAL ERROR 

:;PUSH RO ON STACK 
;;PUSH RI ON STACK 
;; SHOULD TYPE A MESSAGE? 

* * I F NOT : BR 

;: OPERATING UNDER APT? 

* * IF NOT * BR 

;; SHOULD 'spool MESSAGES? 
.;IF NOT: BR 
:;GET MESSAGE ADDR. 

;;BUnP RETURN ADDR. 
::SEE IF DONE W/ LAST XMISSION'' 
;;IF NOT: WAIT 
::PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 

:;SUB START OF MESSAGE 
;:GET MESSAGE LNGTH IN WORDS 
;:PUT LENGTH IN MAILBOX 
::TELL APT TO TAKE MSG. 

::PUT MSG ADDR IN JSR LINKAGE 
:;BUnP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 



.-SHOULD REPORT FATAL ERROR? 

;IF NOT: BR 

.RUNNING UNDER APT? 

;IF NOT: BR 

.FINISHED LAST MESSAGE? 
;;IF NOT: WAIT 
;;GET ERROR » 

;;BUnP RETURN ADDR. 
;;TELL APT TO TAKE ERROR 
;; CLEAR FATAL FLAG 

.'CLEAR LOG FLAG 
:; CLEAR MESSAGE FLAG 

.POP STACK INTO RI 

.POP STACK INTO RO 

.RETURN 

.-MESSG. FLAG 
;;LOG FLAG 
FATAL FLAG . 
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SEQUENCE KO 



036122 
036130 
036132 
036136 
036U0 
036 UA 
0361 50 
036154 
036156 
036164 
036166 
036172 
036176 
036202 
036204 
036210 
036212 
036214 
036220 
036222 
036226 
036232 
036236 
036240 
036244 
036250 
036252 
036256 
036260 
036264 
036266 
036274 
036300 
036304 
036312 
036314 
036322 
036324 
036330 
036334 
036336 
036 J42 
036344 
036350 
036354 
036356 
036360 
036362 
036364 



022737 

001074 

105777 

100071 

117746 

042716 

022726 

001062 

123727 

001456 

104401 

104401 

013746 

104402 

104401 

005046 

005046 

105777 

100375 

117746 

042716 

021627 

001005 

104401 

C62706 

000757 

021627 

001022 

005766 

001403 

016677 

062706 

104401 

123727 

001003 

012777 

000002 

004737 

021627 

002420 

021627 

003015 

042726 

005766 

001403 

006316 

006316 

006316 

005266 



ENABL LSE 



000176 

143006 

143002 
177600 
000007 



001134 000001 

036541 
036546 
000176 

036557 



142724 

142720 
177600 
000025 

036534 
000006 

000015 

000004 

00OC12 142644 

000006 

001313 

001135 000001 

000100 142622 

035266 
000060 

000067 

000060 
000002 



000002 



001140 iCKSVR 



•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
•ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
•WHEN OPERATING IN TTY FLAG MODE. 



$GTSWR: 



19$: 



71; 



9$: 



20$: 
10$: 



11$: 
14$: 



15$: 
16$; 



17$: 



C«P 
BNE 
TST8 
BPL 

nova 

SIC 

C«P 

BNE 

CMP8 

BEQ 

TYPE 

TYPE 

NOV 

TYPOC 

TYPE 

CLR 

CLR 

TST8 

BPL 

novB 

BIC 

C«P 

BNE 

TYPE 

ADD 

BR 

C«P 

BNE 

TST 

BEQ 

NOV 

ADD 

TYPE 

CHPB 

BNE 

NOV 

RTI 

JSR 

C«P 

BLT 

C«P 

BGT 

BIC 

TST 

BEQ 

ASL 

ASL 

ASL 

INC 



#SWREG,SWR 
15$ 
a$TKS 
15$ 

a$TK8--(SP) 
fC177,(SP) 
#7.(SP)* 
15i 

$AUT0B,«1 
15$ 

,$CNTL6 

«$MSWR 

SWREG,-(SP) 

,$mEW 

-(SP) 
-(SP) 
a$TKS 
7$ 

a$TK8--(SP) 
#*C177.(SP) 
<SP).#25 
10$ 

,$CNTLU 
#6.SP 

i9i 

(SP), #15 
16$ 
4(SP) 
11$ 

2(SP),aSWR 

♦6,SP 

,$CRLf 

$INTAG.#1 

15$ 

f100.a$TKS 

PC.$TYPEC 
(SP) ,«60 
18$ 

(SP),#67 
18$ 

#60, (SP)* 

2(SP) 

17$ 

(SP) 

(SP) 

(SP) 

2(SP) 



;;IS THE SOFT-SWR SELECTED? 
; .BRANCH IF NO 
;;CHAR THERE? 

:;IF NO, DON'T WAIT AROUND 

;;SAVE THE CHAR 

; .STRIP-OFF THE ASCII 

;;IS IT A CONTROL 6? 

;;N0, RETURN TO USER 

:;ARE WE RUNNING IN AUTO-MODE? 

::BRANCH IF YES 

;;ECH0 THE CONTROL-G CG) 

;:TYPE CURRENT CONTENTS 

;;SAVE SWREG FOR TYPEOUT 

;;G0 TYPE—OCTAL ASCII (ALL DIGITS) 

:; PROMPT FOR NEW SWR 

;: CLEAR COUNTER 

;:THE NEW SWR 

;;CHAR THERE? 

::IF NOT TRY AGAIN 

;;PICK UP CHAR 

;;MAKE IT 7-61 T ASCII 

;;IS IT A CONTROL-U? 

:;8RANCH IF NOT 

..-YES. ECHO CONTROL-U CU) 

:;J6N0RE PREVIOUS INPUT 

; .-LET'S TRY IT AGAIN 

;;IS IT A <CR>? 

-BRANCH IF NO 
;.-YES, IS IT THE FIRST CHAR? 
.-.-BRANCH IF YES 
;;SAVE NEW SWR 
;; CLEAR UP STACK 
.-.ECHO <CR> AND <LF> 

ICBD INTERRUPTS? 



KBD INTERRUPTS 



;; RE-ENABLE TTY 
; .-BRANCH IF NOT 
;;RE-ENABLE TTY 
;; RE TURN 
.-.ECHO CHAR 
;;CHAR < 0? 
.-.-BRANCH IF YES 
;.-CHAR > 7? 
.-.BRANCH IF YES 
.-.-STRIP-OFF ASCII 
.-.-IS THIS IHE FIRST CHAR 
.-.-BRANCH IF YES 
;;N0, SHIFT PRESENT 
;.- CHAP OVER TO MAKE 
ROOM FOR NEW ONE. 
.-.-KEEP COUNT OF CHAR 
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SEQUENCE U1 



036370 
056374 
056576 
056402 



6441 
6442 



036570 
056572 
056576 
036600 
036602 
036604 
036610 

036612 
056614 
036622 



056616 
000707 
104401 
000720 



177776 
001312 



BIS 
BR 

18$: TYPE 
BR 

.0SA8L LS8 



-2(SP).(SP) 
7$ 

.SOUES 

ios 



;;SET IN NEW CHAR 
:;6ET THE NEXT ONE 
;;TYPE ?<CR><LF> 
.•.SIMULATE CONTROL -U 



.••THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
.••CALL: 
;* RDCHR 
:• RETURN HERE 

• * 



.-.INPUT A SINGLE CHARACTER FROM THE TTY 

CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 



\JjOH\JH 








SRDCHR: 


nVk4fM 




000004 


000002 


1$: 




105777 


142524 
















1 1 7766 


142520 


000004 






042766 


1 77600 


000004 








000004 


000023 






001015 






2S: 




105777 


142472 




056452 


100575 








056454 


117746 


142466 






056460 


042716 


177600 






056464 


022627 


000021 






056470 


001566 








056472 


000750 




000021 


5S: 


056474 


026627 


000004 


056502 


001744 




000140 




056504 


026627 


000004 




056512 


002407 




000175 




056514 


026627 


000004 




056522 


005003 




000004 




056524 


&42766 


000040 




056552 


000002 






4S: 


056554 


136 


125 


015 


SCNTLU: 


056541 


156 


107 


015 


SCNTLG: 


056546 


015 


012 


125 


SMSyR: 


036557 


040 


040 


116 


SMNEU: 



(SP), -(SP) 

Mo. 4(SP).2(SP) 

TST8 aSTKS 

BPL IS 

MOVB a$TK6.4(SP} 

BIC #*C<177>,4(SP) 

CMP 4(SP).#23 

BNE 3S 

TSTB aSTKS 

BPL 2$ 

MOVB aSTKB,-(SP) 

BIC #*C177,(SP) 

CMP (SP)*.#21 

BNE 2$ 

BR IS 

CMP 4(SP),mON 

BEQ IS 

CMP 4(SP),#140 

BLT 4$ 

CMP 4(SP).#175 

BGT 4S 

BIC #40,4(SP) 
RTI 

.ASCIZ /•U/<15><12> 

.ASCIZ /•6/<15><12> 

.ASCIZ <15><12>/SyR = 

.ASCIZ / NEW = / 



;;PUSH DOWN THE PC 

;;SAVE THE PS 

;:UAIT FOR 

;;A CHARACTER 

;;REAO THE TTY 

;;GET RID OF JUNK IF ANY 

;;IS IT A CONTROL -S? 

; .-BRANCH IF NO 

;;UAIT FOR A CHARACTER 

;.-LOOP UNTIL ITS THERE 

;:6ET CHARACTER 

r;MAKE IT 7-eiT ASCII 

;;IS IT A CONTROL -0? 

;:IF NOT DISCARD IT 

;;YES, RESUME 

;;IS IT A RANDOM XON? 

..BRANCH IF YES 

;;IS IT UPPER CASE? 

; .-BRANCH IF YES 

;;IS IT A SPECIAL CHAR? 

:;8RANCH IF YES 

;;MAICE IT UPPER CASE 

;;G0 BACK TO USER 

;; CONTROL 'V 

.-.'CONTROL "6" 



.RANOOI 
.RANOOI 



.S6TTL TRAP DECODER 



010046 
016600 
005740 
111000 
006300 
016000 
000200 

011646 
016666 
000002 



000002 
036624 

000004 000002 



STRAP: 



••THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
.-•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 

..SAVE RO 
;:6ET TRAP ADDRESS 
.-.-BACKUP BY 2 
;:GET RIGHT BYTE OF TRAP 
..POSITION FOR INDEXING 
..INDEX TO TABLE 
;;G0 TO ROUTINE 
•GET^»ftl" MACRO 

;;MOVE THE PC DOWN 
. .-MOVE THE PSU DOWN 
.-.RESTORE THE PSW 



:;THIS 
STRAP2 



MOV 
MOV 

TST 
MOVB 
ASL 
MOV 

RTS 
IS USE 
MOV 
MOV 
RTI 



RO.-(SP) 
2(SP).R0 
-(RO) 
(R0),R0 
RO 

STRPAD(RO),RO 
RO 

TO HANDLE THE 
(SP),-(SP) 
4(SP).2(SP) 



L 
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SECUENCE 



036624 
036626 
036650 
036632 
036634 
036636 
036640 
036642 
036644 
036646 

6443 0366S0 

6444 0366S2 
6445 

6446 
6447 



036654 
036662 
036670 
036672 
036674 
036676 
036700 
036702 
036704 
036710 
036714 
036722 
036724 



036612 
03505^ 
035444 
035420 
035460 
036172 
036122 
036404 
034760 
035016 
037544 
037536 
000030 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 
017746 
010637 
012737 
000000 
000776 



SBTTL TRAP TABLE 

• THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROui'INES CALLED 
•BY THE •TRAP" INSTRUCTION. 
ROUTINE 



STRPAD: .WORD STRAP2 

$TYPE ;;CALL= 

STYPOC ;;CALL= 

STYPOS ;;CALL= 

$TYPON ;;CALL: 

SGTSWR ;;CALL: 

SCKSUR ::CALL= 

SRDCHR ;;CALL= 

$SAVREG :;CALL: 

SRESREG :;CALL= 

.RSET ;;CALL= 

.LPER .-.CALL' 

$TER«=.-$TRPAD 



TYPE TRAP*1 (104401) 

TYPOC TRAP*2( 104402) 

TYPOS TRAP*3( 104403) 

TYPON TRAP*4( 104404) 

GTSyR TRAP*5( 104405) 

CKSUR TRAPt6( 104406) 

ROCHR TRAP*7( 104407) 

SAVREG TRAP*1 0(1 04410) 

RESREG TRAP*1 1(104411) 

RSETUP TRAP*12(104412) 

LPERR TRAP+1 3 (104413) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (UITH LEADING ZEROS) 

TYPE OCTAL NUMBER (NO LEADING ZEROS) 

TYPE OCTAL NUMBER (AS PER LAST CALL) 

GET SOfT-SyR SETTING 

TEST FOR CHANGE IN SOFT-SUR 

TTY TYPEIN CHARACTER ROUTINE 

SAVE R0-R5 ROUTINE 

RESTORE R0-R5 ROUTINE 

ROUTINE TO INITIALIZE AFTER EVERY TE«T 

ROUTINE TO SET LOOP ON ERROR ADDRESS 



037032 
000340 



000024 
000026 



SBTTL POWER DOWN AND UP ROUTINES 



POWER DOWN ROUTINE 



142230 
037036 
036726 



000024 



SPWRDN: NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
HALT 
BR 



/r$ILLUP,a#PWRVEC 

/r340,arpuRVEC>2 

RO.-(SP) 
RI.-(SP) 
R2,-(SP) 
R3.-(SP) 
R4.-(SP) 
R5,-(SP) 

asyR,-(SP) 

SP,SSAVR6 
fSPWRUP.MPWRVEC 

.-2 



.SET FOR FAST UP 
PR10:7 

PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
PUSH R3 ON STACK 
PUSH R4 ON STACK 
PUSH R5 ON STACK 
PUSH aSWR ON STACK 
SAVE SP 
;SET UP VECTOR 

;HAN6 UP 



036726 


012737 


037032 


000024 


SPWRUP: 


NOV 


#$ILLUP,a«PWRVEC 


036734 


013706 


037036 






NOV 


$SAVR6,SP 


036740 


005037 


037036 






CLR 


$SAVR6 


036744 


005237 


037036 




1$: 


INC 


$SAVR6 


036750 


001375 








BNE 


1$ 


036752 


012677 


142162 






NOV 


(SP)^.aswR 


036756 


012605 








NOV 


(SP)*,R5 


036760 


012604 








NOV 


(SP)*, R4 


036762 


012603 








NOV 


(SP)*, R3 


036764 


012602 








NOV 


(SP)*,R2 


036766 


012601 








NOV 


(SP) ♦,R1 


036770 


012600 








NOV 


(SP) ♦,R0 


036772 


012737 


036654 


000024 




NOV 


#$PWRDN,a#PWRVEC 


037000 


012737 


000340 


000026 




NOV 


#340,a#PURVEC*2 


037006 


104401 








TYPE 




037010 


037740 






SPWRNG: 


.WORD 


POWERN 


037012 


012716 








NOV 


(PC)*.(SP) 


037014 


004346 






SPWRAD: 


.WORD 


START 


037016 


042766 


000020 


000002 




BIC 


#20,2(SP* 


037024 


005037 


034076 






CLR 


STBIT 



.SET FOR FAST DOWN 
GET SP 

WAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF WORD 

POP STACK INTO iSWR 

POP STACK INTO RS 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

.-SET UP THE POWER DOWN VECTOR 

PRI0:7 

REPORT THE POWER FAILURE 

POWER FAIL NESSAGE POINTER 

RESTART AT START 

RESTART ADDRESS 

CLEAR 'T' BIT 

CLEAR THE '7" BIT FLAG 



CKFPeCO fPIIF FLTG PNT PRT 3 
POWER DOyN AMD UP ROUTINES 

037030 000002 
037032 000000 
037034 000776 
037036 000000 

6449 
6450 
6451 

6452 
6453 
6454 
6455 
6456 
6457 

6458 037040 

6459 037044 

6460 037052 

6461 037C60 

6462 037066 

6463 037070 

6464 037074 

6465 037100 

6466 037102 
6^.67 037106 

6468 037110 

6469 037114 

6470 037120 

6471 0371 ?2 

6472 037126 

6473 037130 

6474 037134 

6475 037140 

6476 037142 

6477 037144 

6478 037146 

6479 037150 

6480 037154 

6481 037160 

6482 037162 

6483 037164 

6484 037166 

6485 037172 

6486 037176 

6487 037200 

6488 037202 

6489 037204 

6490 037210 

6491 037212 

6492 037214 

6493 037216 

6494 037220 

6495 037222 

6496 037224 

6497 037226 

6498 037230 

6499 037232 
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SEQUENCE 143 



RTI 

SILLUP: HALT 
BR 

SSAVR6: 0 



.-2 



.-THE POWER UP SEOUENfE WAS STARTED 
: BEFORE THE POWER DUWN WAS COMPLETE 
:PUT THE SP HERE 



.S8TTL ERROR TYPE OUT ROUTINE 



*THIS ROUTINE IS CALLED TO TYPE AN ERROR MESSAGE WHICH IS INCLUDED 
*JN THE ERROR MESSAGE DATA TABLE. IT IS CALLED BY THE SERROR ROUTINE 
•OR BY FIRST SETTING SITEMB EQUAL TO THE ERROR TABLE ITEM TO BE PRINTED 
*OUT AND THEN ECECUTING A: 
• JSR PC.ERTYPE 



1 Ay y Ai 
104^01 


AA1 TIT 




CnT Yrt ! 


T VOC 

rTPt 






AA1 1 A^ 


nni 5T5 




HUVo 


» 1 o 1 Nn , 9 1 nru 




1 1 ( •»UU 


W/ICJC 




air 


miff f 9 1 nr\J 
CCDDDr CTMD1 


A1 TTTT 


001 1 10 


nm 'iXL 






U iUOhO 










on —/CD) 


1 1 77nn 
1 1 jrUU 


AA 1 1 1 A 

UU 1 M H 








cfTPMQ on 
91 1 cno.KU 


\)HC.f\J\) 


1 77/, nn 
1 ( f hUU 






Q f r 
oil 


• Iff HUU , nU 


UU 1 UU 3 








Okie 
one 


1* 
1 • 


Ul jrHO 


Art1 1 1 A 
UU 1110 








♦CnUrl , — I or/ 


1 \JHH\iC 








T vonr 
1 TrUt 




UUUl J' 


t\X7L\C\ 






Jnr 






AAnT77 
UUU^r 1 




1 9 • 


Lnr 


MX77 sn 


UU 1 UUj 








QMF 




M 1 ooUU 


nnnnni. 






nuv 


4(SP).R0 


ni mnn 

U 1 1 UvU 








Mnu 

nuv 


fPH) pn 










Ann 


ir^no PO 


ni f\(\X7 


AA1 Ton 
W 1 JcU 




7C • 
J* • 


Mnu 




AACTnn 








Pel 


pn 

nU 


\)\)Oj\/\/ 








AOL 


pn 

nU 










ACI 
AOL 


pn 

nU 


006^00 








ASL 


RO 


062700 


001442 






ADD 


#$ERRTB.RO 


012037 


037164 




4$: 


MOV 


(R0)+.5i 


001404 








BEQ 


6$ 


104401 








TYPE 




000000 






5$: 


.WORD 


0 


104401 


001313 






TYPE 


,$CRLF 


012037 


037202 




6S: 


MOV 


(R0)+.7$ 


001404 








BEQ 


8$ 


104401 








TYPE 




000000 






7$: 


.WORD 


0 


104401 


001313 






TYPE 


.SCRLF 


010146 






8$: 


MOV 


R1,-(SP) 


010246 








MOV 


R2.-(SP) 


010346 








MOV 


R3.-(SP) 
(R0)+.R1 


012001 








MOV 


001503 








BEQ 


23$ 


011000 








MOV 


(RO}.RO 


105710 






9$; 


TSTS 


(RO) 


001003 








BNE 


10$ 


013146 








NOV 


a(R1)*,-(SP) 


104402 








TYPOC 





TYPE A CRLF 

MOVE TEST NUMBER TO $TMPO 
CLEAR THE UPPER BYTE 
GET PC OF CALL 
SAVE RO 

GET THE ITEM NUMBER. 
CLEAR THE UPPER BYTE 
BRANCH IF ITEM IS ZERO 

MOVE IMP ERROR PC TO THE STACK FOR PRINTING 

PRINT THE PC 

JUMP TO EXIT - ALL DONE 

SEE IF ERROR 9 IS 377 

BRANCH IF NOT 

MOVE ITEM ADDRESS ON STACK TO RO 
MOVE ITEM TO RO 
ADD 400 TO RO 

SET ITEM NUMBER IN $FATAL FOR APT :DPM001 
DECREMENT RO AND 
SHIFT THREE TIMES 
TO FORM AN INDEX 
FOR THE TABLE. 

ADD ERROR TABLE START TO RO - FORMS STARTING ADDRESSS 
PICK UP THE ADDRESS OF THE ERROR MESSAGE 
BRANCH IF NONE 
TYPE THE MESSAGE 

LOCATION FOR ASCII MESSAGE ADDRESS 

TYPE A <CRLF> 

GET THE DATA HEADER 

BRANCH IF NO HEADER 

TYPE THE HEADER 

LOCATION FOR HEADER ADDRESS 

TYPE A <CRLF> 

SAVE R1 

SAVE R2 

SAVE R3 

GET VHE ADDRESS OF THE DATA TABLE. 

BRANCH TO RETURN IF NO DATA. 

GET A POINTER TO THE DATA FORMAT TABLE. 

IS THE FORMAT ZERO? 

BRANCH TO CHECK FOR FORMAT 2 IF NOT 

FORMAT ZERO SO TYPE 

AN OCTAL NUMBER. 
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6500 
6501 
6502 
6503 
6504 
6505 
6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6SI7 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6556 



037234 
037236 
037242 
037244 
037250 
037254 
037256 
037262 
037264 
037270 
037274 
037276 

037300 
037304 
037306 
037310 
037312 
037313 
037314 
037316 
037322 
037324 
037330 
037332 
037354 
037336 
037342 
037344 
037350 
037352 
037354 
037356 
037362 
037364 
037366 
037372 
037376 
037400 
037402 
037404 

037410 
037412 
037414 
037416 
037422 
037424 
037426 
037430 
037432 

037434 
037436 
037440 
037442 
037446 



000463 
122710 
001005 
004737 
004737 
000^53 
122/10 
001006 
012703 
004737 
077303 
000442 

122710 
001004 
013146 
104403 
016 
000 
000433 
122710 
001005 
012137 
104401 
000000 
000425 
122710 
001005 
013137 
104401 
000000 
000415 
122710 
001007 
013102 
012703 
004737 
077303 
000401 
000000 
104401 

005200 
005711 
001303 
104401 
012603 
012602 
012601 
012600 
000207 

013102 
012246 
104402 
104401 
000207 



C^0002 

037434 
037434 

000003 

000004 
037434 



000004 



000C05 
037332 

000011 
J37352 

0u0012 



000006 
037434 



040005 



001313 





BR 


10$: 


CMP8 




BNE 




JSR 




JSR 




BR 


11$: 


C«P8 




BNE 




MOV 


12$: 


JSR 




SOB 




BR 


13$: 


CWP8 




BNE 




MOV 




TYPOS 




.BYTE 




.BYTE 




BR 


14$: 


CMPfl 




BNE 




MOV 




TYPE 


15$: 


.WORD 




BR 


16$: 


CMP8 




BNc 




MOV 




TYPE 


17$: 


.WORD 




BP 


18$: 


CMPB 




BNr 




MOV 




MOV 


19$: 


JSR 




S06 




BR 


20$: 


11 At T 

HALT 


21$: 


T WAP 

TYPE 


22$: 


INC 




TST 




BNc 




TYPE 




MOV 




MOV 




MOV 


23$: 


MOV 




RTS 



040007 



TOCTNM: MOV 
MOV 
TYPOC 
TYPE 
RTS 



21$ 

#2,:ro) 
iii 

PC. TOCTNM 
PC JOCTNH 

2ii 

#3.(R0) 

13i 

#4.R3 

PC. TOCTNM 

R3.12$ 

21$ 

«4.(R0} 

ui 

a(R1)*.-(SP) 

16 
0 

21$ 

*5.(R0) 
16$ 

(R1)*,15$ 

0 

22$ 

*11.(R0) 
18$ 

a(R1)*.17$ 
0 

22$ 

#12. (RO) 
20$ 

a(R1)+.R2 
#6.R3 
PC. TOCTNM 
R3-19$ 
2li 

.$TAB 

RO 

(R1) 

9$ 

.$CRLF , 

(SP)*, R3 
(SP)+,R2 
(SP)*. R1 
(SP)*.RO 
PC 

a(R1)+,R2 
(R2)*.-(SP) 

.SPACE 
PC 



SEQUENCE 



BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 

IS THE FORMAT TWO? 

BRANCH TO CHECK FOR FORMAT 3 IF NOT 

TYPE 1ST OCTAL NUMBER 

TYPE 2N0 OCTAL NUMBER 

BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 

IS THE FORMAT THREE? 

BRANCH TO CHECK FOR FORMAT 4 IF NOT 

SET LOOP COUNTER TO TYPE 4 OCTAL NUMBERS 

TYPE AN OCTAL NUMBER 

SUBTRACT 1 AND BRANCH IF NOT DONE 

BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 

IS THE FORMAT FOUR? 

BRANCH TO CHECK FOR FORMAT 5 IF NOT 

MOVE THE DATA TO THE STACK FOR TYPING 

;60 TYPE AN OCTAL NUMBER 

;TYPE UP TO 16 DIGITS 

: SUPPRESSING LFADING ZEROES. 

;BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 

;IS THE FORMAT FIVE? 

:B-^ANCH TO CHECK FOR FORMAT 11 IF NOT 

;PUT THE ADDRESS OF THE ASCII STRING IN THE LOCATION 

;TYPE THE ASCIZ STRING. 

; LOCATION FOR THE ADDRESS OF THE ASCIZ STRING 

^BRANCH TO INCREMENT RO AND CONTINUE 

;IS THE FORMAT ELEVEN? 

;BRANCH TO CHECK FOR FORMAT 12 IF NOT 

;MOVE THE DATA TO THE STACK FOR TYPING 

;TyPE THE ASCIZ STRING. 

rLOCATION FOR THE ADDRESS OF THE ASCIZ STRING 
;BRANCH TO INCREMENT RO AND CONTINUE 
;IS THE FORMAT TWELVE? 

;BRANCH TO HALT IT NOT - FORMAT NOT RECOGNIZED 

;MOVE THE DATA TO THE STACK FOR TYPING 

.TYPE SIX OCTAL NUMBERS 

;ryPE AN OCTAL NUMBER 

; SUBTRACT 1 AND BRANCH IF NOT DONE YET 

.■BRANCH TO PRINT A TAB CHARACTER AFTER TABLE ENTRY 

.UNDEFINED FORMAT FOR DATA????? 

;PRINT A TAB AFTER TYPING A DATA TABLE ENTRY 

;0F ALL FORMATS EXCEPT FORMATS 5 OR 11 

; POINT TO THE NEXT FORMAT 

;HAS THE END OF THE DATA TABLE BEEN REACHED? 

.•BRANCH BACK IF NOT 

;DONE. 

.'RESTORE R1.R2 AND R3 



.RESTORE RO. 
:AND RETURN. 

.•FORMAT TWO SO TYPE TWO 
.OCTAL NUMBERS. 
;TYPE THE OCTAL NUMBER 
.•TYPE A SPACE CHARACTER 
.-EXIT 
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SEQUENCE U5 



6557 






6558 






ft559 






6560 






6561 






6562 






6563 


037A50 


011637 


6564 




Odcodo 


6565 


037456 


170200 


6566 


037460 


010037 


6567 


037464 


170300 


6568 


037A66 


010037 


6569 


037472 


10A247 


6570 


037A7A 


10AA12 



6571 


037A76 


000137 


6572 






6573 






657A 






6575 






6576 






6577 






6578 


037502 


011637 


6579 


037506 


022626 


6580 


037510 


104250 


6581 


037512 


104A12 



6582 03751 A 

6583 

6584 

6585 

6586 

6587 
6588 

6589 037520 

6590 03752A 

6591 037526 

6592 037530 



6593 037532 

6594 

6595 

6596 

6597 

6598 



011637 
022626 
104251 
10AA12 



.S8TTL FPP SPURIOUS TRAP TO 2AA HANDLER 



001236 

001240 
001 2A2 



0333A0 



001236 



000137 0333A0 



001236 



000137 033340 



• ************************ *************************************** 

iTHIS ROUTINE HANDLES UNEXFcCTED TFAPS TO THE FPP TRAP VECTOR AT 2A4. 
*THE LAST FPP INSTRUCTION EXECUTED AND ITS ADDRESS HAS BEEN RECORDED 
*THESE ALONG WITH THE FEC, FPS AND PC OF TRAP ARE REPORTED. 



* 

FPSPUR: 



1$: 



nov 

C«P 
STFPS 

nov 

STST 
MOV 
ERROR 
RSETUP 



JMP 



(SP),$THP2 
(SP)*. (SP)* 
RO 

R0,$THP3 

RO 

RO.STMPA 
♦247 



$EOP 



.-SAVE PC OF TRAP. 
.RESTORE SP. 
;GET FPS 

;GET FEC 



;G0 INITIALIZE THE FPS AND STACK: AND 
;SEE IF THE USER HAS EXPRESSED 
;THE DESIRE TO CHANGE THE SOFTWARE 
.VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 



.S8TTL CPU SPURIOUS TRAP TO < HANDLER 

;*************************************************************** 

iTHIS ROUTINE REPORTS UNEX*>ECTED CPU TRAPS TO VECTOR 4. 
* 



CPSPUR: MOV 
CMP 

1$: ERROR 
RSETUP 



JMP 



(SP).$TMP2 

(SP)*,(SP)* 

♦250 



SEOP 



.-SAVE PC OF TRAP. 



;G0 INITIALIZE THE FPS AND STACK: AND 
;SEE IF THE USER HAS EXPRESSED 
.-THE DESIRE TO CHANGE THE SOFTWARE 
: VIRTUAL CONSOLE SWITCH REGISTER (HAS 
.•THE USER TYPED CONTROL G?). 



.S8TTL CPU SPURIOUS TRAP TO 10 HANDLER 

;*************************************»»****»******************* 

*THIS ROUTINE REPORTS UNEXPECTED CPU TRAPS TO VECTOR 10. 
* 



CPTWO: MOV (SP).$TMP2 

CMP (SP)*. (SP)* 

1$: ERROR +251 
RSETUP 



JMP 



SEOP 



.-SAVE PC OF TRAP. 



:G0 INITIALIZE THE FPS AND STACK; AND 
:SFE IF THE USER HAS EXPRESSED 
:THE DESIRE TO CHANGE THE SOFTWARE 
.-VIRTUAL CONSOLE SWITCH REGISTER (HAS 
;THE USER TYPED CONTROL G?). 
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SEQUENCE 146 



6599 
6600 

6601 

6602 037536 

6603 0375A2 
6604 

6605 
6606 

6607 
6608 
6609 
6610 
6611 
6612 
6613 

6614 037544 
6615 

6616 037552 

6617 037554 
6618 

6619 
6620 

6621 037556 

6622 03756^ 

6623 037572 

6624 037600 

6625 037602 

6626 037606 

6627 037610 

6628 037612 
6629 

6630 
6631 
6632 

6633 037614 

6634 037632 

6635 037655 

6636 037667 

6637 037705 

6638 037720 

6639 037740 

6640 040005 

6641 040007 

6642 040012 

6643 040030 

6644 040050 

6645 040077 

6646 040125 

6647 040147 

6648 040165 

6649 040211 

6650 040233 

6651 040257 

6652 040302 

6653 040320 



011637 
000002 



001001 
104406 



012737 
012737 
012737 
011600 
012706 
005004 
170104 
000110 



.S8TTL SET LOOP ON ERROR ADDRESS ROUTINE 



001110 



.LPER: 



nov 

RTI 



(SP). $LPERR 



.S8TTL FLAG RESET AND CONSOLE TEST ROUTINE 



*THIS ROUTINE WILL BE CALLED AT THE END OF EACH TEST TO 
•RESET THE STACK. CLEAR THE FPS AND SEE IF THE USER HAS TYPED 
• CONTROL G ON THE TERMINAL. IF THE USER HAS TYPED CONTROL G AND 
•THERE IS NO PHYSICAL CONSOLE SWITCH REGISTER THEN THE CONTENTS 
•OF THE SOFTWARE SWITCH REGISTER WILL BE TYPED IN OCTAL ON THE 
•TELETYPE AND THE USER CAN MODIFY IT. 



023727 001140 177570 .RSET: CMP 



037450 
037502 
037520 

001100 



000244 
000004 
000010 



1$: 



BNE 
CKSWR 



NOV 

NOV 

NOV 

NOV 

NOV 

CLR 

LDFPS 

JNP 











.S8TTL 


124 


122 


101 


NSA1 


.ASCIZ 


105 


130 


120 


NSA2 


.ASCIZ 


107 


117 


124 


NSA3 


.ASCIZ 


105 


130 


120 


NSA4 


.ASCIZ 


107 


117 


124 


NSA5 


.ASCIZ 


105 


130 


120 


NSA6 


.ASCIZ 


200 


120 


117 


POWERN: .ASCI2 


Oil 


000 




STAB: .ASCIZ 


040 


040 


000 


SPACE: .ASCIZ 


101 


103 


040 


NS1: 


.ASCIZ 


106 


123 


122 


NS2: 


.ASCIZ 


101 


103 


060 


NS3: 


.ASCIZ 


101 


103 


060 


NS4: 


.ASCIZ 


105 


130 


120 


NS5: 


.ASCIZ 


107 


117 


124 


NS6: 


.ASCIZ 


106 


122 


101 


NS7: 


.ASCIZ 


111 


116 


124 


NS10 


.ASCIZ 


105 


130 


120 


NS11 


.ASCIZ 


105 


130 


120 


NS12 


.ASCIZ 


114 


117 


101 


NS37 


.ASCIZ 


122 


105 


101 


NS40 


.ASCIZ 



SWR, #177570 
1$ 



#FPSPUR,FPVECT 

iTCPSPUR.ERRVECT 

*CPTW0.10 

(SP). ro 

fSTACK.SP 

R4 

R4 

(RO) 



SEE IF THERE IS A PHYSICAL 
CONSOLE SWITCH REGISTER. 
BRANCH IF NO. 

OTHERWISE TYPE THE CONTENTS 
OF THE PROGRAM VIRTUAL SWITCH REGISTER 
AND GIVE THE USER A CHANCE TO 
MODIFY IT. 



.-SAVE RETURN ADDRESS. 
;RESET THE STACK POINTER. 
.•CLEAR THE FPS. 



.-RETURN. 



SPECIAL MESSAGES 
•TRAPPED AT:'<TAB><TAfl> 
•EXPECTED TRAP AT.^<TAB> 
•GOT RO:'<TAfl><TAB> 
•EXPECTED R0:'<TA8> 
•GOT ACO:*<TAB><TAB> 
•EXPECTED AC0:'<TA8><TAB> 

<CRLF>'POUER FAILURE. PROGRAM RESTARTING. '<CRLF> 

<TA8> 
i t 

'AC OPERAND: *<TAB><TA8> 
•FSRC OPERAND: •<TAB><TAB> 
•ACO BEFORE EXECUTION: •<TAB> 
•ACO AFTER EXECUTION: •<TAB> 
•EXPECTED RESULT: •<TAB> 
'GOT RESULT: •<TAB><TAB> 
•FRACTIONAL RESULT : •<TAB> 
•INTEGER RESULT: •<TAB> 
•EXPECTED FRACTION: •<TAB> 
•EXPECTED INTEGER: •<TAB> 
•LOADED DATA: • 
'READ DATA: ' 
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CKFPBCO FP11F FLTG PNT PRT B HACftO H1113 20-0CT-81 08:27 PAGE 34-2 SEQUENCE U7 

SPECIAL MESSAGES 

6654 040334 105 130 120 HS415: .ASCJZ 'EXPECTED DATA: ' 

6655 040354 104 101 124 HS41 : .ASCJZ 'DATA IN (RO) FSRC: ' 

6656 040400 104 101 124 nS42: .ASCIZ 'DATA IN ACO: ' 

6657 040416 107 117 124 HS43: .ASCJZ 'GOT RESULT: ' 

6658 040433 105 130 120 HS44: .ASCJZ 'EXPECTED RESULT: ' 

6659 040455 200 124 105 C0R«ES: .ASCIZ <CRLf>' TEST 22, TESTING INTERRUPTS. •<CRLf> 



CKFPBCO FP71F FLTG ONT PRT 6 MACRO H1113 20-0CT-81 
ERROR MESSAGES 



6660 










.SBTTL 


6661 0405U 


106 


120 


123 


EH1 : 


.ASCII 


6662 040546 


101 


103 


060 


EH2: 


.ASCIZ 


6666 040602 








E«3: 




040602 


106 


120 


123 




.ASCII 


6667 040626 


050 


102 


125 




.ASCIZ 


6668 040707 








En4: 




040707 


106 


120 


123 




.ASCII 


6669 040733 


050 


102 


125 




.ASCIZ 


6670 041014 








EH5: 




041014 


106 


120 


123 




.ASCII 


6671 041040 


050 


102 


125 




.ASCIZ 


6672 041121 








E«6: 




041121 


106 


120 


123 




.ASCII 


6673 041145 


050 


102 


125 




.ASCIZ 


6674 041226 








EH7: 




041226 


106 


120 


123 




.ASCII 


6675 041252 


050 


102 


125 




•ASCIZ 


6676 041333 








EM10: 




041333 


106 


120 


123 




.ASCII 


6677 041357 


050 


102 


125 




.ASCIZ 


6678 041440 








EH11 : 




041440 


106 


120 


123 




.ASCII 


6679 041464 


050 


102 


125 




.ASCIZ 


6680 041547 








EH12: 




041547 


106 


120 


123 




.ASCII 


6681 041573 


050 


102 


125 




.ASCIZ 


6682 041656 








EH13: 




041656 


106 


120 


123 




.ASCII 


6683 041702 


104 


111 


104 




.ASCIZ 


6684 041772 








EMU; 




041772 


106 


120 


123 




.ASCII 


6685 042016 


050 


102 


125 




.ASCIZ 


6686 042104 








E«15: 




042104 


106 


120 


123 




.ASCII 


6687 042130 


050 


102 


125 




.ASCIZ 


6688 042216 








EH16: 




042216 


106 


120 


123 




.ASCII 


6689 042242 


104 


111 


104 




.ASCIZ 


6690 042313 


104 


111 


126 


EH17: 


.ASCIZ 


6691 042370 


106 


120 


123 


EH20: 


.ASCIZ 


6692 042422 


106 


105 


103 


EH21 : 


.ASCIZ 


6693 042454 


104 


111 


126 


EH22: 


.ASCIZ 


6694 042535 


104 


111 


126 


EH23: 


.ASCIZ 


6695 042560 


106 


120 


123 


EH32: 


.ASCIZ 


6699 042612 








EH24: 




042612 


104 


111 


126 




.ASCII 


6700 042634 


050 


102 


125 




.ASCIZ 


6701 042710 








E«25; 




042710 


104 


111 


126 


.ASCII 






Iff 


i 

ICC 




.ASCIZ 


6703 042775 








En26: 




042775 


104 


111 


126 




.ASCII 


6704 043017 


050 


102 


125 




.ASCIZ 


6705 


042710 






EH27=EH25 


6706 043073 








EH30: 




0<.3073 


104 


111 


126 




.ASCII 



F 12 

08:27 PAGE 35 SEQUENCE 

ERROR MESSAGES 

'FPS BAD AFTER C«PD (R),A.' 

'AGO MODIFIED BY CMPD (R).A.' 

'FPS BAD AFTER C«PD.'<CRLF> 

'(BUT ENBT) STATE 225 WENT TO 475 INSTEAD OF 075.' 
'FPS BAD AFTER C«PD.'<CRLF> 

'(BUT ENBT) STATE 225 WENT TO 075 INSTEAD OF 475.' 
'FPS BAD AFTER CnPD.'<CRLF> 

'(BUT ENBT) STATE 035 WENT TO 075 INSTEAD OF 475.' 
•FPS BAD AFTER C«PD.'<CRLF> 

'(BUT ENBT) STATE 035 WENT TO 475 INSTEAD OF 075.' 
'FPS BAD AFTER C«PD.'<CRLF> 

• (BUT ENBT Y8) STATE 777 SHOULD HAVE GONE TO 007. ' 
'FPS BAD AFTER C«PD.'<CRLF> 

'(BUT ENBT Y8) STATE 777 SHOULD HAVE GONE TO 405.' 
'FPS BAD AFTER C«PD.'<CRLF> 

'(BUT NBIT ZBIT) STATE 456 SHOULD HAVE GONE TO 010.' 
'FPS BAD AFTER C«PD.'<CRLF> 

'(BUT NBIT ZBIT) STATE 456 SHOULD HAVE GONE TO 110.' 
'FPS BAD AFTER C«PO.'<CRLF> 

/DIDN'T TAKE THE PATH: STATE 456, TO 012. TO 363 TO 120./ 
'FPS BAD AFTER C«PD.'<CRLF> 

'(BUT XNBT XZBT) STATE 363 WENT TO 140 INSTEAD OF 100.' 
'FPS BAD AFTER CHPD.'<CRLF> 

'(BUT XNBT XZBT) STATE 363 WENT TO 100 INSTEAD OF 140.' 

•FPS BAD AFTER C«PD.'<CRLF> 

/DIDN'T TAKE THE PATH: STATE 777. TO 407./ 

'DIVD (R).A TRAPPED TO 244. FSRC^O AND FID=1.' 

'FPS BAD AFTER DIVD (R).A.* 

'F EC BAD AFTER DIVD (R).A.' 

/DIVD (R),A DIDN'T TRAP TO 244. FSRC^O AND FID-0./ 

•DIVF (R).A FAILED.' 

'FPS BAD AFTER DIVF (R),A.' 

'DIVF (R),A FAILED.' 

'(BUT Y61) WENT TO STATE 006 INSTEAD OF 206.' 

'DIVF (R).A FAILED.' 

'XOR OF SIGN BITS FAILED STATE 470.' 

'DIVF (R),A FAILED.' 

'(BUT Y61} WENT TO STATE 206 INSTEAD OF 006.' 



'DIVF (R).A FAILED.' 



CKFP8C0 FP11F FLTG PNT PRT B PMCRO Nil 13 20-OCT-61 



ERROR MESSAGES 












6707 (K3115 


124 


122 


125 


EM31 : 


A ^ y* f ^ 

.ASCIZ 


6708 043U5 










0*3H5 


4 A y 

104 


4 4 4 

111 


4 

126 




.ASCII 


6709 043167 


4 

122 


4 4 9 

117 


4 

125 




A /* y* V ^ 

.ASCIZ 


6710 04321? 


4 A ^ 

104 


4 4 4 

111 


126 


EH33; 


.ASCIZ 


^94 4 A/9^9f 

6711 043235 


4 A^ 

106 


4 "SA 

120 


123 


EW34: 


.ASCIZ 


6715 043267 






EH35 : 




A / 9 

043267 


4 A y 

104 


4 4 4 

111 


126 




A /* y* V ff 

.ASCII 


6716 043312 


4 ^ y 

124 


122 


4 

125 




.ASCIZ 


A 94 9 A/ 99/ ^ 

6717 043342 








EM36: 




043342 


4 Ay 

104 


111 


1 

126 




.ASCII 


^ 94 a Ay 99^ f 

6718 043365 


122 


4 4 9 

117 


4 ^C 

125 




.ASCIZ 


^94A Ay9y4A 

6719 043410 


4 4 C 

115 


125 


4 4/ 

114 


EH37: 


A y* V 9 

.ASCIZ 


6723 043433 


1 A^ 

106 


4 ^A 

120 


1 

123 


CMy A . 

EmO: 


.ASCIZ 


^9*%y Ay9/^f 

6724 043465 




4 *)C 

125 




En41 : 




A/ 9y ^ f 

043465 


4 4 C 

115 


4 4 7 

114 




.ASCII 


^9^C A/9C1/% 

6725 043510 


123 


4 4 4 

in 


1 A7 

107 




.ASCIZ 










rMy ^ • 




043540 


115 


4 

125 


1 1 y 
1 IH 




A C ^ V f 

.ASCII 


6^27 043563 


116 


4 4 7 
117 


1 

122 




A C ^ ff ff 

.ASCII 


6728 043611 


AC A 

050 


4 

102 


IOC 

125 




.ASCIZ 


6729 043671 








cMy T . 

En43: 




Ay T^^^ 

043671 


lie 

115 


4 1C 

125 


1 1 y 
1 IH 




A C ^ ff ff 

.ASCII 


^9TA Ay T^i y 

6730 043714 


116 


117 

117 


1 

122 




.ASCII 


6731 043742 


AC A 

050 


1 A*) 

102 


1 oe 
125 




A cy* f 9 

.ASCJZ 


6732 044022 








cMy y . 




Ay y ATI 

044022 


lie 

115 


1 ^e 
125 


1 1 y 




.ASCII 


^9TT Ay y Ay c 


122 


117 

Mr 


1 ^c 

125 




A C ^ ff 9 

.ASCIZ 


6734 0440f0 








cMy c . 

EH45: 




A/ y A7A 

0440r0 


115 


125 


1 1 y 




A c r T I 

.ASCII 


£9Vc A/ y 1 4 V 

6#35 044113 


4 'ly 

124 


1 

122 


1 oc 

125 




A f>y* f V 

.ASCIZ 


z^Y^ Ay y < / T 

6756 044143 


106 


1 

120 


1 01 

123 


eMy A. . 
EW46: 


.ASCJZ 


6740 044175 


i i C 

115 


1 ^e 

125 


11/ 

1 IH 


EW246: 


.ASCIZ 


^9y 1 Ay y '5'5A 

6741 044220 








nay 7 • 




A/ / O^A 

044220 


lie 

115 


1 "^e 
125 


1 1 y 




.ASCII 


6742 0*4243 


1 A^ 

102 


1 A1 

101 


1 Ay 
104 




.ASCII 


6743 044312 


200 


1 Te 

125 


1 OT 

123 




A r y* f Y 

.ASCIZ 


d.^i y Ay y Tcy 

6744 044354 








CMCA ■ 




Ay y TC/ 

044354 


lie 

115 


1 ^e 

125 


4 4 y 

114 




.ASCII 


c Ay y 

6745 04437r 


124 


4 

122 


4 

125 




A f/" f 9 

.ASCIZ 


^ "^y ^ Ay y y 1^ 

6746 044427 








f MCI . 

EH51 : 




Ay y y 1^ 

044427 


lie 

115 


1 oe 

125 


4 4 y 

114 




A y* ff f 

.ASCII 


X 7/ 7 A/ / / C ^ 


122 


117 

\if 


1 oc 

125 




A c y f 9 

.ASCIZ 


o Ay y y 7C 
6748 0444/^5 








ETO2: 




Ay y y 7C 
044475 


1 4 C 

115 


1 OC 

125 


1 1 y 
114 


.ASCII 


^7yo Ayyc 

6749 044520 


1 A^ 

102 


1 A1 

101 


1 Ay 
104 




.ASCIZ 


Z7CA Ay y czc 

6750 044565 


106 


1 ^A 

120 


1 OT 

123 


CMI 11. 

EHin : 


A C f 7 

.ASCIZ 


Ay y Ay o 

6751 044642 


1 AA 

106 


1 ^A 

120 


1 OT 

123 


rMl 10. 

Em12: 


A ^ ff 9 

.ASCIZ 


^"VC^ Ay y 7^A 

6752 044/^20 








PMI 17. 




Ay y "^OA 

044720 


lie 

115 


1 oe 

125 


1 1 y 

114 




A C y ff ff 

.ASCII 


A7CT Ay 7 7/7 

6f 53 044 r4 J 


105 


i TA 

130 


1 OA 

120 




A c y* t 7 

.ASCIZ 


z 7cy Ay y 77x 

6754 044776 








FM4 4 y . 

Em 14: 






1 1 J 


1 3^ 


1 1 A 






6755 045021 


105 


130 


120 




.ASCIZ 


6756 045055 


115 


125 


114 


E«115: 


.ASCIZ 


6757 045133 


115 


125 


114 


EMI 16: 


.ASCIZ 


6764 045212 








Eni17: 





G 12 

08:27 PAGE 35-1 



•TRUNCATION ERROR. FT=1.' 

'DJVF (R).A FAILED.* 
•ROUND ERROR. FT=0.* 
•DlVD (R).A FAILED. • 
'FPS BAD AFTER DIVD (R}.A.' 

•DIVD (R),A FAILED. •<CRLF> 
•TRUNCATION ERROR. FT=1.' 

•DIVD (R),A FAILED. •<CRLF> 
•ROUND ERROR. FTsQ.' 
•HULF (R),A FAILED. • 
•FPS BAD AFTER MULF (R),A.' 

•nULF CR),A FAILED. •<CRLF> 
'SIGN BIT BAD STATE 511. • 

•«ULF (R),A FAILED. •<CRLF> 
•NORMALIZATION FAILED. •<CRLF> 

'(BUT Y62) STATE 252 WENT TO 044 INSTEAD OF 444. 

•mjLF (R),A FAILED. •<CRLF> 
•NORMALIZATION FAILED. •<CRLF> 

'(BUT Y62) STATE 252 WENT TO 444 INSTEAD OF 044. 

•MULF (R),A FAILED. •<CRLF> 
•ROUND ERROR. FTsO.^ 

•MULF (R).A FAILED. '<CRLF> 
•TRUNCATION ERROR. FT=1.^ 
•FPS BAD AFTER MULD CR),A.' 
•MULD (R).A FAILED. • 

•MULD (R),A FAILED. •<CRLF> 

•BAD CONSTANT USED IN THE MUL ALGORITHM. • 

<CRLF>^USED 24 INSTEAD OF 56 STATE 020.' 

•MULD (R),A FAILED. •<CRLF> 
* TRUNCATION ERROR. FT=1.^ 

•MULD (R),A FAILED. •<CRLF> 
•ROUND ERROR. FT^O.^ 

•MULD (R).A FAILED. •<CRLF> 

'BAD CONSTANT USED IN ROUNDING, TTrO.' 

•FPS BAD AFTER MULF (R),A. EXPECTED OVERFLOW. • 

•FPS BAD AFTER MULF (R).A. EXPECTED UNDERFLOW.' 

•MULF (R),A FAILED. '<CRLF> 
•EXPECTING OVERFLOW, FIV^O.^ 

•MULF (R),A FAILED. •<CRLF> 

•EXPECTING UNDERFLOW, FIU=0.' 

•MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.^ 

•MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU-0.' 



CKFP8C0 FP11F FLTG PNT PRT B MACRO Mil 13 20-0CT-81 



ERROR MESSAGES 












0A5212 


115 


125 


114 




.ASCII 


6765 (K5270 


050 


102 


125 




.ASCIZ 


6766 (K5350 








EMI 20 : 




(K5350 


115 


125 


114 




.ASCII 


6767 (K5A26 


050 


102 


4 '\C 

125 




.ASCIZ 


6768 (K5506 








EM121: 




(K5S06 


115 


125 


114 




.ASCII 


6769 (K5563 


050 


102 


125 




.ASCIZ 


6770 04S6A3 








EMI 22: 




0456A3 


115 


125 


114 




.ASCII 


6771 0A5720 


050 


102 


125 




.ASCIZ 


6772 046000 


106 


120 


123 


EMI 23; 


.ASCIZ 


6771 046056 


106 


120 


123 


EMI 24: 


.ASCIZ 


6774 046135 








EMI 25: 




046135 


115 


125 


114 




.ASCII 


6775 046160 


105 


4 9A 

130 


4 AA 

120 




.ASCIZ 


6776 046213 








^m4 

EMI 26: 




046213 


4 4 P 

115 


125 


114 




.ASCII 


6777 046236 


105 


4 VA 

130 


4 '\A 

120 




.ASCIZ 


6778 046272 


115 


125 


4 4 y 

114 


EMI 27: 


.ASCIZ 


6779 046350 


4 4^ 

115 


125 


4 4 y 

114 


rM4 9A 

EMI 30: 


.ASCIZ 


6786 046427 








#*M4 94 

EMI 31 : 




046427 


4 4 P 

115 


125 


114 




.ASCII 


6797 046505 


050 


102 


4 "^C 

125 




.ASCIZ 


6788 046565 








■••44 9 

EMI 32: 




046565 


4 4 P 

115 


125 


4 4 y 

114 




.ASCII 


6789 046610 


4 A r 

105 


4 YA 

130 


4 A 

120 




.ASCII 


6/90 046643 


^ AA 

200 


AC A 

050 


4 A^ 

102 




.ASCIZ 


6791 046723 








EMI 33: 




046723 


4 4 P 

115 


4 ^C 

125 


4 4 y 

114 




.ASCII 


6792 047001 


AP A 

050 


4 A*^ 

102 


4 "^C 

125 




.ASCIZ 


6793 047061 








CM4 

EMI 34: 




047061 


4 4 r 

115 


4 C 

125 


114 




.ASCII 


6794 047136 


Af A 

050 


4 A ^ 

102 


4 

125 




.ASCIZ 


6795 047216 








EMI 35: 




047216 


4 4 r 

115 


4 ^C 

125 


4 4 y 

114 




.ASCII 


6796 047241 


4 AC 

105 


4 9A 

130 


4 A 

120 




.ASCII 


6797 047273 


^ AA 

200 


AC A 

050 


102 




.ASCIZ 


6798 047353 








^m4 9^ 

EMI 36: 




047353 


4 4 f 

115 


4 IC 

125 


4 4 y 

114 


.ASCII 


6799 047430 


050 


4 A ^ 

102 


4 AC 

125 




.ASCIZ 


6800 047510 


4 A^ 

106 


4 AC 

105 


4 A9 

103 


EMI 37: 


.ASCIZ 


6801 047576 


4 A^ 

106 


4 AC 

105 


4 A9 

103 


EMI 40: 


.ASCIZ 


6802 


044565 






EM141-EM111 


6803 


A^ t A S ^ 

044642 






EM142-EM112 


6804 047665 








EMI 43: 




047665 


4 4 C 

115 


125 


4 4 y 

114 




.ASCII 


A OA f Ay ^"74 A 

6805 047710 


4 AC 

105 


4 VA 

130 


4 *> A 

120 




.ASCIZ 


6806 047743 








EMI 44: 




Ay ^^y Y 

047743 


4 4 r 

115 


i2i 


4 4 y 

114 




.ASCII 


^ OA 7 Ay A 

6807 047766 


4 AC 

105 


130 


120 




.ASCIZ 


M 04 y Af AA^^ 

6814 05GO22 








EMI 45: 




\JJWCC 


lie 


lc5 


11* 




.ASCII 


6815 050107 


050 


102 


125 




.ASCIZ 


6816 050167 








EMI 46: 


050167 


115 


125 


114 




.ASCII 


6817 0502S4 


050 


102 


125 




.ASCIZ 



H 12 

08:27 PAGE 35-2 



SEQUENCE 15C 



•MULF (R),A TRAPPED TO 244 ON UNDERFLOy. FIU=0.* 
•(BUT FIU) STATE 331 WENT TO 155 INSTEAD OF 115.' 

•MULF (R),A TKAPPED TO 244 ON UNDERFLOW. FIU=0.' 
•(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115.' 

•MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 
'(BUT FIV) STATE 333 WENT TO 136 INSTEAD OF 116.' 

•MULF (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 
•(BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116.' 
•FPS BAD AFTER MULD (R),A. EXPECTING OVERFLOW.' 
'FPS BAD AFTER MULD (R),A. EXPECTING UNDERFLOW.' 

•MULD (R),A FAILED. '<CRLF> 
•EXPECTING OVERSOW, FIV=0.' 

•MULD (R),A FAILED. '<CRLF> 

•EXPECTING UNDERFLOW. FIU=0.^ 

'MULD (R).A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 

'MULD (R),A TRAPPED TO 244 ON UNDERFLOW. FIU-0.' 

•ML'LF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0.' 
'(BUT FIU) STATE 331 WENT TO 155 INSTEAD OF 115." 

'MULD (R).A FAILED. •<CRLF> 
•EXPECTING UNDERFLOW, FIU=0.^ 

<CRLF>^(8UT FD) STATE 115 WENT TO 424 INSTEAD OF 425." 

'MULF (R),A TRAPPED TO 244 ON UNDERFLOW. FIU=0.' 
•(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115.' 

'MULD (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 
'(BUT FIV) STATE 333 WENT TO 136 INSTEAD OF 116.' 

'MULD (R),A FAILED. '<CRLF> 
'EXPECTING OVERFLOW, FIV-0.' 

<CRLF>'(BUT FD) STATE 116 WENT TO 424 INSTEAD OF 425.' 

•MULD (R),A TRAPPED TO 244 ON OVERFLOW. FIV=0.' 
'(BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116.' 
•FEC BAD AFTER MULF (R),A. EXPECTING OVERFLOW, FEC=10. ' 
'FEC BAD AFTER MULF (R),A. EXPECTING UNDERFLOW, FEC=12.' 



•MULF (R),A FAILED. '<CRLF> 
'EXPECTING OVERFLOW. FIV=1.' 

'MULF (R).A FAILED. •<CRLF> 
•EXPECTING UNDERFLOW. FIU-1.' 

'MULF (R),A FAILED TO TRAP TO 244 ON UNDERFLOW. FlU-l.' 
'(BUT FIU) STATE 331 WENT TO 115 INSTEAD OF 155.' 

'MULF (R},A FAILED TO TRAP TO 244 ON UNDERFLOW. FlU^I.' 
'(BUT FIU) STATE 137 WENT TO 115 INSTEAD OF 155.' 



CKFP8C0 FP11F FLTG PNT PRT B MACRO H1113 20-OCT-81 



ERROR MESSAGES 












6818 050334 








EH147: 




05033A 


115 


4 '\C 

125 


114 




.ASCII 


6819 050420 


050 


102 


125 




.ASCIZ 


6820 050500 








^••4 CA 

EMI 50: 




050500 


« 4 C 

115 


125 


4 4/ 

114 




.ASCII 


6821 050564 


050 


4 A^ 

102 


4 ^C 

125 




.ASCIZ 


6822 050644 


4 Ay 

106 


4 AC 

105 


4 AV 

103 


EM151: 


.ASCIZ 


6823 050732 


4 Ay 

106 


4 AC 

105 


4 A V 

103 


EMI 52: 


.ASCIZ 


6824 


046000 






EM153=EM123 


6825 


Ay y AC y 

046056 






EM154=EM124 


6826 051021 








CMI»: 




051021 


115 


4 *%C 

125 


114 






fjalf 051044 


4 AC 

105 


4 TA 

130 


4 iA 

120 




ACr f 7 


6828 051077 








cm 30: 




051077 


4 4 C 

115 


4 *>C 

125 


4 1/ 

114 




Acr f f 
• Aol J i 


6829 051 122 


4 AC 

105 


4 VA 

130 


4 *%A 

120 




ACr f 7 


6836 051156 








CII1C7> 




051156 


4 4 C 

115 


4 1C 

125 


4 4/ 

114 




Acr T f 
.A5li J 


6837 051243 


AC A 

050 


102 


4 

125 




Acr f 7 


Z OVO Ar4T^T 

6838 051323 








tniou: 




051323 


4 4 C 

115 


4 '>C 

125 


4 1/ 

114 




Acr f r 


6839 051346 


4 AC 

105 


4 TA 

130 


4 '%A 

120 




ACT r f 


^O/A AC4/A4 

6840 051401 


1AA 

200 


AC A 

050 


4 A*) 

102 






yO/4 AC4y^4 

6841 051461 








cn lO 1 • 




AC 4 / Z 1 

051461 


4 4 C 

115 


< 1C 

125 


11/ 
114 




ACT r r 


6842 051546 


AC A 

050 


1 A') 

102 


1 

125 






6843 051626 








cn 1 oc • 




AC 4 Z '^Z 

051626 


115 


125 


11/ 
114 




Acr f f 


6844 051712 


AC A 

050 


4 A*) 

102 


1 tc 

125 




ACf I 7 


6845 051772 








EMI AT • 




AC 4 

051772 


4 4 C 

115 


125 


4 4/ 




Acr r f 
•Aovi J 


Atkid. AC^A4C 

6846 052015 


1 AC 

105 


4 TA 

130 


4 1A 

120 




Acr f r 


y O / ^ AC ^A/ ^ 

6847 052047 


'^AA 

200 


AC A 

050 


1 Ai 

102 




ACr f 7 


^ Oy A AC^4 

6848 052127 








cn 1 OH - 




AC '>4 17 

052127 


4 4 C 

115 


125 


11/ 

114 




Acr 1 1 


6849 052213 


AC A 

050 


i A^ 

102 


1 

125 




Acr f 7 


6850 052273 


106 


4 1A 

120 


123 


cnjj . 


Acri 7 


^DC4 AOT*)C 

6851 052325 


4 1 C 

115 


117 


1 A/ 

104 




ACT I 7 


6852 052356 


4 i C 

115 


117 

117 


1 A/ 

104 


cn5*». 


Acr I 7 


^ACA Ady AZ. 

6859 052406 








cn^o* 




AC 1/ AZ 

052406 


4 4 C 

115 


117 

117 


4 A/ 

104 




ASCII 


6860 052437 


4 A1 

101 


1 AY 

103 


A A 

OuO 




.ASCIZ 


^Ay4 AC1/'97 

6861 052477 








EH57: 




AO/ 77 

052477 


4 1 C 

1 15 


117 

117 


1 A/ 

104 




.ASCII 


6862 052527 


1 A1 

101 


1 A7 

103 


A^ 1 

061 




.ASCIZ 


6863 05^567 








En60: 




AOCZ 7 

052567 


lie 

115 


117 

117 


1 A/ 

104 




.ASCII 


686A 052617 


101 


4 AT 

103 


A^ 1 

061 




.ASCIZ 


6865 052671 








En61: 




AT 

052671 


4 4 C 

115 


117 


1 A/ 

104 




.ASCII 


XOXZ^ AC'^7'>'1 

6o66 052722 


101 


Ay A 

040 


1 A1 

102 




.ASCII 


6867 053000 


200 


117 


122 




.ASCIZ 


OOOO U^jUO? 








En62: 




053065 


115 


117 


104 






6869 053116 


101 


040 


102 




.ASCII 


6870 053174 


200 


117 


122 




.ASCIZ 


6871 053261 








EM63: 





08:27 PAGE \^'\ 



SEQUENCE 



'MULf (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1.' 
'(BUT FIV) STATE 333 WENT TO 116 INSTEAD Of 136.' 

•MULF (R),A FAILED TO TRAP TO 244 ON OVERFLOW. F1V=1.' 
•(BUT FIV) STATE 133 WENT TO 116 INSTEAD OF A36.* 
'FEC BAD AFTER MULD (R),A. EXPECTING OVERFLOW. FEC^IO.' 
•FEC BAD AFTER MULD (R),A. EXPECTING UNDERFLOW. FEC-12.' 



•MULD (R).A FAILED. •<CRLF> 
'EXPECTING OVERFLOW. FIV=1.' 

•MULD (R).A FAILED. •<CRLF> 
'EXPECTING UNDERFLOW, FIU=1.' 

•MULD (R)-A FAILED TO TRAP TO 244 ON UNDERFLOW. FIU=1.^ 
•(BUT FlUi STATE 331 WENT TO 115 INSTEAD OF 155.' 

•MULD (R),A FAILED. •<CRLF> 
•EXPECTING UNDERFLOW, FIU^l.' 

<CRLF>'(BUT FD) STATE 155 WENT TO 426 INSTEAD OF 427.' 

•MULD (R),A FAILED TO TRAP TO 244 ON UNDERFLOW. FIU=1.' 
•(BUT FIU) STATE 137 WENT TO 115 INSTEAD OF 155.* 

'MULD (R},A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1.^ 
'(BUT FIV) STATE 333 WENT TO 116 INSTEAD OF 136.' 

•MULD (R),A FAILED. '<CRLF> 
•EXPECTING OVERFLOW. FIV=1.^ 

<CRLF>^(8UT FD) STATE 700 WENT TO 426 INSTEAD OF 427.' 

•MULD (R),A FAILED TO TRAP TO 244 ON OVERFLOW. FIV=1.^ 
•(BUT FIV) STATE 133 WENT TO 116 INSTEAD OF 136.' 
•FPS BAD AFTER MODF (R),A.' 
'MODF (R),A FRACTION BAD.^ 
•MODF (R),A INTEGER BAD.^ 

•MODF (R).A FRACTION BAD.'<CRLF> 
'ACO DID NOT GET 0 IN STATE 424.* 

•MODF (R),A INTEGER BAD.'<CRLF> 
'AC1 DID NOT GET 0 IN STATE 142. • 

•MODF (R),A INTEGER BAD.^<CRLF> 

•ACl DID NOT GET THE INTEGER IN STATE 134. • 

•MODF (R).A FRACTION BAD.^<CRLF> 

•A BAD CONSTANT WAS USED (NOT 24) IN STATE 046. • 

<CRLF>'OR (BUT NBIT) STATE 525 WENT TO 050 INSTEAD OF 150.^ 

•MODF (R).A FRACTION BAD.'<CRLF> 

•A BAD CONSTANT WAS USED (NOT 24) IN STATE 046.' 

<CRLF>^OR (BUT NBIT) STATE 525 WENT TO 150 INSTEAD OF 050. • 



CKFP8C0 FP11F FLTG PNT PRT 



ERROR MESSAGES 






053Z61 


115 






050 


bof 5 










115 




U33*»i3 


050 




0535 1 1 






ncici 1 
0533 1 1 


115 


bo ft 


ACTC/ 0 


050 


iL.077 
OO' f 


U530^<i 






053o^H 


115 


iL.B7fl 
btifO 


U53055 


123 


iL.B70 


U530' 3 






U330' 3 


115 


otioU 


nc770T 
U33^c3 


123 


oool 


Uj J' jO 


115 


<.BB'3 

OtMJc 


ncz.AA7 
OjHUOf 


115 


OOOJ 


U3«iU3f 


106 


c>oo*» 




054037 


OCT 1 


AQZ.n71 






ncz.n7i 


115 


OOt£ 


51 

Ujh I c 1 


050 


OOTJ 


ncz.9nA 






U3*»cUU 


115 


OOt*» 




101 


OOt3 










115 


OOtO 




101 


AJIC7 










115 


OOtO 


AC/ /I 3 


050 


iLflOQ 
OOTT 


A5Z.Z.71 






A?Z,Z.71 


115 


OVW 


ACZ.C51 


123 


OW 1 


\JJHJJH 








115 






101 




Uj*>OOj 


200 




A?/,7?A 








115 




ACCAAI 

UjjW 1 


101 


owo 




200 










VJJ !•»•» 


115 


oWo 


ACC1 7C 
U3j1 IJ 


050 


07V7 


ACCOCA 








115 


07 1 U 


{JjJJVO 


123 


A01 1 
Ot I 1 




200 


07 Ic 










115 




055453 


050 


6914 


055532 






055532 


115 


6915 


055562 


050 


6916 


055641 






055641 


115 


6917 


055671 


050 
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117 


104 




.ASCII 


102 


125 




.ASCIZ 




EH64: 




117 


104 




.ASCII 


102 


125 




.ASCIZ 




E«65: 




117 


104 




.ASCII 


102 


125 




.ASCIZ 






En66: 




117 


104 




.ASCII 


111 


107 




.ASCIZ 






E«67: 




117 


104 




.ASCII 


111 


107 




.ASCIZ 


117 


104 


E«70: 


.ASCIZ 


117 


104 


EH71 : 


.ASCIZ 


120 


123 


E«72: 


.ASCIZ 




E«73=E«72 






EM74 : 




117 


104 




.ASCII 


102 


125 




.ASCIZ 






EM75 : 




117 


104 




.ASCII 


103 


060 




.ASCIZ 






EH76: 




117 


104 




.ASCII 


103 


061 




.ASCIZ 










117 


104 




•ASCII 


102 


125 




.ASCIZ 






AA . 

cm 00: 




117 


104 




.ASCII 


111 


107 










EMI 01: 




117 


104 




.ASCII 


040 


102 




.ASCII 


117 


122 




.ASCIZ 






EMI 02: 




117 


104 




.ASCII 


040 


102 




.ASCII 


117 


122 




.ASCIZ 






EMI 03: 




117 


104 




.ASCII 


102 


125 




.ASCIZ 




EMI 04: 




117 


104 




.ASCII 


105 


124 




.ASCII 


117 


122 




.ASCIZ 






EMI 05: 




117 


104 




.ASCII 


1 AO 


125 




.ASCIZ 






EMI 06: 




117 


104 




.ASCII 


102 


125 




.ASCIZ 






Em07: 




117 


104 




.ASCII 


102 


125 




.ASCIZ 



J 12 

08:27 PAGE 35-4 



SEQUENCE 



•«0DF (R),A FRACTION BAD.'<CRLF> 

•(8UT ZBT) STATE 532 WENT TO 102 INSTEAD OF 122.' 

•HOOF (R),A FRACTION BAD.'<CRLF> 

•(BUT ENBT EZBT) STATE 041 WENT TO 046 INSTEAD OF 246.' 

'nODF (R},A FRACTION BAD.'<CRLF> 

•(BUT FT) STATE 126 SHOULD HAVE GONE TO 133. FT^O.' 

'nODF (R),A FRACTION BAD.'<CRLF> 
'SIGN BIT BAD.' 

'nODF (R).A INTEGER BAD.'<CRLF> 
'SIGN BIT BAD IN STATE 733.' 
'HODD (R),A FRACTION BAD.' 
'HODD (R),A INTEGER BAD.' 
'FPS BAD AFTER MODD (R),A.' 

'HODD (R),A INTEGER BAD.'<CRLF> 

'(BUT FC) STATE 231 WENT TO 142 INSTEAD OF 143.' 

'nODD (R),A FRACTION BAD.'<CRLF> 
•ACO GETS 0 IN STATE 425 FAILED.' 

'MODD (R)«A INTEGER BAD.'<CRLF> 
•AC1 GETS 0 IN STATE 143 FAILED.' 

'MODD (R),A FRACTION BAD.'<CRLF> 

'(BUT FD) STATE 526 WENT TO 134 INSTEAD OF 135.' 

'MODD (R),A INTEGER BAD.'<CRLF> 
'SIGN BIT BAD IN STATE 526.' 

'nODD (R)«A FRACTION BAD.'<CRLF> 

'A BAD CONSTANT WAS USED (NOT 56) IN STATE 046/ 

<CRLF>'0R (BUT NBIT) STATE 525 WENT TO 050 INSTEAD OF 15).' 

•nODD (R),A FRACTION BAD.'<CRLF> 

'A BAD CONSTANT WAS USED (NOT 56) IN STATE 046,' 

<CRLF>'0R (BUT NBIT) STATE 525 WENT TO 150 INSTEAD OF 050.' 

'MODD (R)«A FRACTION BAD.'<CRLF> 

'(BUT ZBIT) STATE 532 WENT TO 122 INSTEAD OF 102.' 

'HODD (R),A INTEGER BAD.'<CKLF> 
•SET INTEGER IN AC1 FAILED-' 

<CRLF>'OR (BUT FD) STATE 733 WENT TO 156 INSTEAD OF 157.' 

•MODD (R).A INTEGER BAD.'<CRLF> ^ . 

'(BUT FD) STATE 122 WENT TO 424 INSTEAD OF 425.' 

'MODD (R),A INTEGER BAD.'<CRLF> 

'(BUT FD) STATE 246 WENT TO 126 INSTEAD OF 127.' 

'MODD (R),A INTEGER BAD.'<CRLF> 

'(BUT FD) STATE 446 WENT TO 126 INSTEAD OF 127.' 
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ERROR MESSAGES 












6918 


055750 








4 A 

EMI 10: 






055750 


115 


1 n ^ 


104 




.ASCII 


6919 


056001 


050 


1 AO 


125 




.ASCIZ 


6932 


056060 








^M4 ^ f 

EMI 65: 






056060 


lie 


117 

l\f 


104 




.ASCII 


6933 


056143 


AAA 

000 








.ByTE 


6934 


056144 








rM4 ^ ^ 

EMI 66: 






056144 


1 1 > 


117 

1 1 ^ 


104 




.ASCII 


6935 


056226 


AAA 
000 








.BYTE 


6936 


056227 








EMI 67: 






056227 


f AX 

106 


1 OA 

120 


4 

123 




.ASCII 


6937 


056260 


AAA 

000 








.BYTE 


6938 


056261 








tf>M4 TA 

EMI 70: 






056261 


i AX 

106 


1 AC 

105 


4 AT 

103 




.ASCII 


6939 


056312 


1 AC 

105 


1 TA 

130 


4 

120 




.ASCIZ 


6940 


056347 








PM4 T4 

EMI 71 : 






056347 


i i C 

115 


117 

11 / 


4 A/ 

104 




A ^ ff t 

.ASCII 


6941 


056431 


^AA 

200 


1 A1 

101 


4 AT 

103 


f Ml 70 . 

EMI 72: 


A f» ff T 

.ASCIZ 


6942 


056472 












056472 


1 AX 

106 


1 AC 

105 


4 AT 

103 




.ASCII 


6943 


056523 


i AC 


1 tn 
l3U 


120 




.ASCIZ 


6944 


056557 








PM4 TT . 

EMI 73 : 






056557 


115 


117 


1 A/ 




.ASCII 


6945 


056641 


eW 


ACA 

U5U 


1 A^ 

102 




.ASCIZ 


6946 


056725 








f Ml 7/ . 

EMI 74 : 






056725 


lie 

115 


117 

1 1 f 


1 A/ 

104 




A C/* ff ff 

.ASCI 1 


6947 


057007 


cWJ 


ACA 

05U 


1 AO 

102 




.ASCIZ 


6948 


057073 








f Ml 7C . 

EMI 75 : 






057073 


lie 

115 


117 


1 A/ 

104 




A C ^ ff ff 

.ASCII 


6949 


057155 




1 01 

lc3 


Ml 




A C /* f T 

.ASCIZ 


6950 


057205 








f Ml 7X . 

EMI 76: 






057205 


lie 

115 


117 


4 A/ 

104 




A ^ ^ ff t 

.ASCII 


6951 


057270 


AAA 
000 








•BtTE 


6952 


057271 


1 OA 


117 


1 07 

icr 


CMl 77 . 

EMI 77: 


A ff T 

•ASCIZ 


6953 


057325 








cmOaa . 

EM200 : 






057325 


1 AX 

106 


1 OA 

120 


1 ov 

123 




A ^ f ff 

.ASCII 


6954 


057356 


AAA 








.OTlt 


6955 


057357 








f MOAI . 

EM201 : 






057357 


1 AX 

106 


1 AC 

105 


1 AV 

103 




A ^ ^ ff ff 

.ASCII 


6956 


057410 


OAA 


1 AC 

1U5 


1 VA 

130 




A C/* ff T 

.ASCIZ 


6957 


057446 








fTMOAO . 

EM202 : 






057446 


1 1 c 

115 


117 

11 f 


4 A/ 




A ^ ff ff 

.ASCII 


6956 


057530 


TAA 


ACA 

U5U 


4 A^ 

102 




A C ^ ff T 

.ASCIZ 


6959 


057610 








EM203: 






057610 


lie 

115 


117 

1 1 f 


1 J4 




A ff ff 

.ASCJJ 


6960 


057672 


OAA 

200 


ACA 


4 A^ 

102 




.ASCJZ 


6961 


057752 








EM204: 






057752 


1 Ax 

1U6 


1 AC 

105 


1 AY 

103 




A C ^ ff ff 

.ASCII 


6962 


060003 


OAA 


1 AC 

105 


1 TA 

130 




A fl T 

.ASCJZ 


6963 


060040 








PmOAC . 

EM205 : 






060040 


lie 

115 


117 

11 f 


1 A/ 

104 




A ^ ff f 

.ASCII 


6964 


060122 


OAA 
CW 


050 


1 AO 

102 




A C ^ f T 

.ASCIZ 


6965 


060206 




117 

11 f 










060206 


lie 
115 


104 




.ASCII 


6966 


060270 


onn 
cW 


ACA 

U5U 


102 




.ASCIZ 


6967 














6968 















1- 

PAGE 35-5 SEQUENCE 



•MODO <R),A FRACTION BAD.'<CRLF> 

•(BUT FT) STATE 127 WENT TO 313 INSTEAD OF 113.* 

/MODF (R).A FRACTION BAD. RESULT OVER OR UNDER FLOW./ 
0 

/MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
0 

/FPS BAD AFTER MODF (R),A./ 
0 

/FEC BAD AFTER MODF (R).A./ 
'EXPECTING UNDERFLOW. FEC=12. ' 

/MODF (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>'AC1 GETS 0 IN STATE 126 FAILED.' 

/FEC BAD AFTER MODF (R),A./ 
'EXPECTING OVERFLOW. FEC-10.* 

/MODF (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>'(BUT FIV FD) STATE 520 WENT TO 142 INSTEAD OF 162.' 

/MODF (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>'(BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 142.' 

/MODF (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>'SIGN BAD IN STATE 517.' 

/MODD (R).A FRACTION BAD. RESULT OVER OR UNDER FLOW./ 
0 

:f>ouer monitor bit found set: 
/fps bad after modd (r).a./ 

0 

/FEC BAD AFTER MODD (R).A./ 
<CRLF>'EXPECTING UNDERFLOW. FEC=12.' 

/MODD (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>'(BUT FDJ STATE 241 WENT TO 126 INSTEAD OF 127.' 

/MODD (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>'(BUT FD) STATE 047 WENT TO 126 INSTEAD OF 127.' 

/FEC BAD AFTER MODD (R).A./ 
<CRLF>'EXPECTJN6 OVERFLOW. FEC=10.' 

/MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>'(BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 163.' 

/MOOD (R).A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
<CRLF>'(BUT FIV FD) STATE 520 WENT TO 162 INSTEAD OF 143.' 



r 
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35-6 



SEQUENCE 



bRROR MESSAGES 












7061 


060354 










.ASCiZ 


060354 


101 


4 Ay 

104 


4 Ay 

104 


ER210: 


7062 


060416 








.ASCIZ 


060416 


124 


4 1 A 

110 


i AC 

105 




7063 


060460 


101 


4 Ay 


i Ay 

104 


En2n : 




7064 


060533 


200 


4 ^7 

127 


' AC 

i05 




.ASCJ i 


7065 


060570 


4 4 4 

111 


4 1^ 

116 


123 


En212: 


ACr t 7 

.ASCJZ 


7090 


060624 








.ASCII 




060624 


101 


1 Ay 
104 


1 A/ 

IOh 






060677 


200 


4 ^y 

124 


i i A 

no 




.ASCJ J 




060721 


104 


4 11 

111 


i Ay 
104 




.ASlJi 




060750 


106 


122 


llf 


En213: 


Acr f 7 


7091 


061010 








ACr 1 1 




061010 


4 A1 

101 


1 Ay 

104 


104 






061063 


200 


1 5y 
1tf4 


i i A 

110 








061105 




ill 

1 n 


1 Ay 
104 




A c r 1 1 




061134 


1 A^ 

106 


i 

122 


1 i 7 

n r 


EH214: 


Acr 1 7 


7092 


061174 






1 A/ 

IOh 






061 1 74 


4 A1 

101 


i Ay 
104 




Acr 1 1 




061247 


'^AA 

200 


1 "^y 

124 


1 1 A 

110 




.AaCii 




061271 


4 Ay 

104 


i i i 

111 


1 A/ 

IOh 




Acr 1 1 




061320 


106 






E«215: 


Acr 1 7 


7093 


061 360 












061360 


101 


1 Ay 
1U4 


1 A/. 

IOh 




Acrt t 




061433 


^AA 

200 


1 oy 
1^4 


1 1 A 

110 




Acr 1 1 




061455 


i Ay 
104 


til 

m 


1 Ay 
IOh 




Acr 1 1 




061504 


1U6 




117 


cnc 10: 


ACr I 7 


709A 


061544 


1^4 


1 lU 


1 AC 

105 


Acr t f 


7095 


061635 


1AA 

200 


l2f 


1 Ac 
105 




Acr ff f 


7096 


061672 


i i i 

111 


i i X 

116 


1 01 

l2i 




Acr ff 7 
.AaLiZ 


7097 


061726 


i A1 

lU 1 


1 Ay 


1 A/. 

IOh 


CMOI 7 • 

tncif : 


Acr I 7 
.Aal JZ 


7098 


061 770 














061770 


i A1 

lUl 


1 Ay 


1 A/ 

IOh 




Acr ff ff 
.ASCJ J 




062023 


1^4 


1 1 A 

1 10 


1 AC 

105 




Acr ff ff 
.ASlJ J 




062103 


"lAA 

^00 


ACA 


1 AO 

10c 




ACr T 7 

.ASL JZ 




062164 


1 i i 

m 


i i X 
116 


i Of 




Acr ff 7 
•ASl JZ 


7099 


062220 








tn22i : 






062220 


i Ai 

101 


1 Ay 


1 Ay 
IOh 




ACr ff T 

.ASl J J 




062262 


1 oy 
1c4 


1 1 A 


1 AC 

105 




Acr ff ff 
• ASL J J 




062341 


1 oy 

124 


1 1 A 

no 


1 AC 

105 




ACr T V 

.ASCJ 1 




062374 


127 


1 AC 

105 


1 ix 

1 lo 




Aer T T 
.ASCJ J 




062430 


ill 

1 1 1 


110 


1 




Acr ff 7 
•ASCJZ 


7100 


062464 








En222: 






062464 


1 A1 

101 


1 A/ 

10m 


i A/. 
104 




Acr ff ff 
•ASCJ J 




062517 


1 0/ 

ltf4 


no 


1 AC 

105 




Acr ff ff 
.ASCJ J 




062600 


£00 


ACA 

090 


1 AO 

lOc 




ACr ff 7 

•ASCJZ 




062661 


111 

111 


110 


1 OT 

ICJ 


tn225 : 


ACr ff 7 

•ASCJZ 


7101 


062715 












062715 


101 


1 /XL 

104 


1 A/ 

IOh 




Acr ff ff 
•ASCJ J 




062757 




110 


1 AC 

105 




Acr ff T 
.ASCJ J 




063037 


i '^y 
1Z4 


1 1 A 

no 


1 AC 

105 




ACrff T 

.ASCJ J 




063072 


Ic?^ 


1 AC 

105 


1 1X 

1 lo 




ACr T T 

.ASCJ J 




063126 


Ill 

1 1 1 


1 lO 


1 cj 




. Aa^ i L 


7102 


063162 








EH224: 






063162 


101 


104 


104 




.ASCII 




063215 


124 


110 


105 




.ASCII 




063276 


200 


050 


102 




.ASCIZ 



.ASCIZ /ADDD (R),A PRODUCED A BAD RESULT./ 

/THE FPS WAS BAD AFTER ADDD (R),A./ 
•ADDD (R),A FAILED IN THE ROUND\TRUWC FLOWS.' 
<CRLF>'UENT FROM STATE 663 TO 313,'<CRLF> 
•INSTEAD OF FROM 663 TO 353.' 

•ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS.' 
<CRLF>^THE FPS WAS BAD.'<CRLF> 
•DID NOT TAKE THE PATH:^<CRLF> 
/FROM STATE 664. TO 505. TO 251./ 

•ADDD (R).A FAILED IN THE ROUND\TRUNK FLOWS. • 
<CRLF>^THE FPS WAS 8AD.'<CRLF> 
•DID NOT TAKE THE PATH:'<CRLF> 
/FROM STATE 664, TO 505. TO 253./ 

'AODD (R:.A FAILED IN THE ROUND\TRUNK FLOWS. • 
<CRIF>*THE FPS WAS BAO.'<CRLF> 
•DID NOT TAKE THE PATH:'<CRLF> 
/FROM STATE 664, TO 705, TO 735./ 

•ADDD (R),A FAILED IN THE ROUND\TRUNK FLOWS.' 
<CRLF>'THE FPS WAS BAD.'<CRLF> 
•DID NOT TAKE THE PATH:'<CRLF> 
/FROM STATE 664, TO 705, TO 737./ 

•THE (BUT FIU FORK IN THE OVER\UNDER FLOWS FAILED. FIU =1 
<CRLF>'WENT FROM STATE 331 TO 115.^<CRLF> 
•INSTEAD OF FROM 331 TO 155.* 
•AODD {R)A TRAPPED TO 244,. FID-I.' 

/ADDD (R),A TRAPPED TO 244./<CRLF> 
•THE RESULT WAS AN OVERFLOW CONDITION BUT FIV^ 0.' 
<CRLF>/{BUT FIV) STATE 133 WENT TO 136 INSTEAD OF 116./ 
/INSTEAD OF FROM 133 TO 116./ 

/ADDD (R).A FAILED TO TRAP TO 244./<CRLF> 
•THE RESULT WAS A OVERFLOW CONDITION AND FIV=1 . •<CRLF> 
/THE (BUT FIV) FORK FAILED. /<CRLF> 
/WENT FROM STATE 133 TO 116,/<CRLF> 
/INSTEAD OF FROM 133 TO 136./ 

/ADDD (R).A TRAPPED TO 244./<CRLF> 
'THE RESULT WAS AN UNDERFLOW CONDITION BUT FIU= O.' 
<CRLF>/(8UT FIU) STATE 331 WENT TO 155 INSTEAD OF 115./ 
/INSTEAD OF FROM 331 TO 115./ 

/ADDD (R).A FAILED TO TRAP TO 244./<CRLF> 
•THE RESULT WAS A UNDERFLOW CONDITION AND FIU^^I . '<CRLF> 
/THE (BUT FIU) FORK FAILED. /<CRLF> 
/WENT FROM STATE ^31 TO 115,/<CRLF> 



/INSTEAD OF FROM 



TO 155./ 



/ADDD (R),A TRAPPED TO 244./<CRLF> 

•THE RESULT WAS AN UNDERFLOW CONDITION BUT FIU= 0.' 

<CRLF>/(BUT FIU) STATE 137 WENT TO 155 INSTEAD OF 115, 
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SEQUENCE 



ERROR MESSAGES 










063357 


111 

III 


116 


123 


7103 


063A13 






104 




063A13 


101 


104 




063455 


124 


110 


105 




063535 


124 


110 


105 




063570 


127 


105 


116 




063624 


111 


116 


123 


7104 


063660 






104 




063660 


101 


104 




063712 


200 


102 


105 




063766 


102 


125 


124 


7105 


064013 










064013 


101 


104 


104 




064045 


200 


102 


105 




064121 


102 


125 


124 


7106 


064146 










064146 


101 


104 


104 




064200 


200 


102 


105 




064255 


102 


125 


124 


7107 


064302 










064302 


101 


104 


104 




064334 


200 


102 


105 




064411 


102 


125 


124 


7108 




060416 







EM225: 



EM226: 



En227; 



En230: 



En231 : 



.ASCIZ /INSTEAD OF FROM 137 TO 115./ 



.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCIZ 

.ASCII 
.ASCII 
.ASCIZ 

.ASCII 
.ASCII 
.ASCIZ 

.ASCII 
.ASCII 
.ASCIZ 



7109 
7110 
7111 
7116 
7120 
7127 



.ASCII 
.ASCII 
.ASCIZ 
En232=En210 



7138 


064436 






103 


E«233: 


.ASCJZ 




064436 


114 


104 


En234: 


7139 


064475 












064475 


122 


060 


040 




.ASCII 




064527 


200 


101 


040 


En235: 


.ASCIZ 


7140 


064561 












064561 


120 


103 


040 


En236: 


.ASCIZ 


7141 


064627 












064627 


120 


103 


040 


EH237; 


.ASCIZ 


7142 


064662 






040 






064662 


122 


060 




.ASCII 




064714 


200 


101 


040 


En240: 


.ASCIZ 


7143 


064746 












064746 


106 


120 


123 


En241 : 


.ASCIZ 


7144 


065002 












065002 


114 


104 


103 




.ASCII 




065026 


200 


124 


110 




.ASCII 




065036 


102 


111 


124 




.ASCII 




065067 


111 


116 


040 




.ASCIZ 


7145 


065105 








E«242: 






065105 


106 


120 


123 




.ASCIZ 


7146 


065141 








EM243: 






065141 


114 


104 


103 




.ASCII 




065165 


200 


124 


110 




.ASCII 




065175 


102 


111 


124 




.ASCII 




065226 


111 


116 


040 




.ASCIZ 



/AODO (R),A FAILED TO TRaP TO 244./<CRLF> 

'THE RESULT yAS A UNDERFLOW CONDITION AND FIU=1 . '<CRLF> 

/THE (BUT FIU) FORK FAILED. /<CRLF> 

/WENT FROH STATE 137 TO 115./<CRLF> 

/INSTEAD OF FROM 137 TO 155./ 

/ADDD (R),A TRAPPED TO 244,/ 

<CRLF> 'BECAUSE OF AN EXPECTED OVERFLOW CONDITION, '<CRLF> 
'BUT THE FEC WAS BAD.' 

/ADDD (R),A TRAPPED TO 244,/ 

<CRLF> 'BECAUSE OF AN EXPECTED OVERFLOW CONDITION. '<CRLF> 
'BUT THE FPS WAS BAD.' 

/ADDD (R),A TRAPPED TO 244,/ 

<CRLF>'BECAUSE OF AN EXPECTED UNDERFLOW CONDITION, '<CRLF> 
'BUT THE FEC WAS BAD.' 

/ADDD (R).A TRAPPED TO 244,/ 

<CRLF>'BECAUSE OF AN EXPECTED UNDERFLOW CONDITION, '<CRLF> 
'BUT THE FPS WAS BAD. ' 



\LDCFD (R)«,A RESULT INCORRECT. \ 

\R0 BAD AFTER LDCFD {R)*,A.\ 
<CRLF>'A BAD CONSTANT WAS USED.' 

\PC BAD AFTER LDCFD MiUM.A. TRAP TO 4.\ 

\PC BAD AFTER LDCFD «NUn,A.\ 

\R0 BAD AFTER LDCDF (R)*.A.\ 
<CRLF>'A BAD CONSTANT WAS USED.' 

\FPS BAD AFTER LDCFD (R)*.A.\ 

\LDCFD (R)*,A FAILED. \ 
<CRLF>'THE FD ' 
'BIT WAS NOT COMPLIMENTED ' 
•IN STATE 017.' 

\FPS BAD AFTER LDCDF (R)*,A.\ 

\LDCDF (R)*,A FAILED. \ 
<CRLF>'THE FD ' 
'BIT WAS NOT COMPLIMENTED ' 
•IN STATE 017.' 



CKFPBCO 
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ERROR MESSAGES 












7U7 


065244 










.ASCIZ 




065244 


114 


104 


mi 
103 




^U8 










cMch5 : 




7U9 


065303 


IK 

lit 


104 


1 nx 


.ASCII 


7150 


065326 


POO 


123 

1 C J 


inc 




•ASCII 


7151 


065547 


1 1 1 


116 


040 




.ASCIZ 


7152 


065365 


1?5 

1 C J 


116 


1 


.ASCIZ 


7153 


065421 


125 


116 


1 \ij 




.ASCIZ 


7154 


065453 


125 


116 




EH251 : 


.ASCIZ 


7155 














/1 56 


065506 


103 


117 


Ice 




.ASCIZ 


7157 












7161 










CM5^X • 




7162 


065577 








.ASCIZ 




065577 


101 


104 


1 Uh 




7163 


065663 








CM5CA • 






065663 


101 


104 




CM5CC • 


.ASCIZ 


7164 


065750 












065750 


101 


104 


1 t\L 




.ASCIZ 


7165 


066036 












066036 


101 


104 


1 f\L 


CM5^7> 


.ASCIZ 


7166 


066125 












066125 


101 


104 


1 n/. 


CIlcOU • 


.ASCIZ 


7167 


066213 












066213 


101 


104 


1 Uh 


CncO 1 • 


.ASCIZ 


7168 


066302 












066302 


101 


104 


1 Uh 


tncOc • 


.ASCIZ 


7169 


066372 












066372 


101 


104 




FII5A^ • 


.ASCIZ 


7170 


066463 












066463 


104 


111 


1 cO 


tn^o*» . 


.ASCIZ 


7171 


066550 












066550 


115 


125 


1 1 A 




.ASCIZ 


7172 


066635 












066635 


115 


117 


1 VH 




.ASCIZ 


7173 














7174 


066722 


103 


117 


122 


EM266: 


.ASCIZ 


7175 


067023 








EM267: 






067023 


115 


117 


104 




.ASCII 


7176 


067105 


000 








.8YTE 



N 12 

PAGE 35-8 SEQUENCE 



\LOCDF (R)*,A RESULT INCORRECT. \ 

'LDCFD (R).A FAILED.' 
<CRLF>'SET SIGN FAILED ' 
•IN STATE 512.' 
•UNEXPECTED FPP TRAP TO 244.' 
•UNEXPECTED CPU TRAP TO 4.' 
•UNEXPECTED CPU TRAP TO 10.' 

'CORRECT FLOWS INTERRUPT TEST MODULE FAILED TO INTEf<HUPT. 



/ADDD ACO.ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/ADDD (RO).ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/ADDD (RO)*,ACO FAILED IN THE INTERRUPT CORRE-CT FLOWS./ 

/ADDD a(RO)«,ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/ADDD -(RO).ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/ADDD a-(RO).ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/ADDD NUM(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/ADDD aNUM(RO),ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/DIVD (RO).ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/MULD (RO).ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

/«ODD (RO.ACO FAILED IN THE INTERRUPT CORRECT FLOWS./ 

•CORRECT FLOWS INTERRUPT TES^ MODULE CAUSED UNEXPECTED INTERRUPT. 

/MODD (R),A INTEGER BAD. RESULT OVER OR UNDER FLOW./ 
0 
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ERROR DATA TABLE HEADERS 
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!6" 



SEQUENCE 1 ; 



71 77 

f \ f 1 








. Mil I L 


71 7* 










71 70 AiL7inA 


UhU 


UhU 


1 7L 

1 CH 


nui • Acr f T 




1 07 

Wf 


117 

1 1 r 


1 

1 tH 


ACf I 7 
. Adl i L 


7im fV!.717A 


w*«U 


UHU 


1 

1 CH 


unc • 


7ia? 


Uor 1 uo 






nu7-nui 

Vnj—Vn 1 


71 «T 


UOr lUO 






WriH— un 1 


71 RZ. 


0^71 n/k 

UOr lUO 






vnj—vn 1 


r 1 OJ 


uo» 1 uo 






nuA— nui 
i/rio— un 1 


r 1 oO 


nA7i n^ 
UOr 1 uo 






uri' — Uri 1 


71 k7 

f I Of 


UO' 1 uo 






un 1 u— un 1 


7lflfl 

r 1 OO 


uo f I uo 






nui 1 -rtui 
un 1 1 — un 1 


71 RQ 


uo' 1 uo 






nui 7-nul 
un 1 c— un 1 


71 on 

f 1 TV/ 


UO' 1 uo 






nui nul 
un 1 J— un 1 


71Q1 

f 1 T 1 


v<0' 1 uo 






nui A-r\ui 
un 1 H-"Un 1 


71QP 


UO' lUO 






nul S~nui 
un 1 J— un 1 


f 1 T J 


JO' 1 wO 






nui A-nui 
un 1 o~un 1 




u*»u 


utu 


1 CH 


un 1 r • aMoL i £ 


71 OS 


UO' lUO 








710^\ n<<i7^1P 

r 1 TO UO f J \ C. 




U'*U 


ipi 

1 CH 


nM71 • ACT T F 
unc 1 • wMoL J i 


7107 n<'>7^S? 

r 1 Tf UO' jjC 


107 

1 U' 


117 

1 1 r 


1 CH 


A^r I 7 


71 OA i')^74ni 


u*»u 


UHU 


1 CH 


uncc> 


7100 

f 1 TT 


UOr 1 UO 






unc j'~un 1 


7?nn 


UOr 1 vO 






un jc ""i/n 1 


7?01 

r cv 1 


vO r 1 vO 






uncH— un 1 


' cue 


UOr 1 UO 






unc J^un 1 




uu' 1 uo 






unco— un i 




UOr 1 UO 






unc r — un 1 


' CU^ 


UOr 1 vO 






unju-^un 1 


' cuo 


vOr 1 VO 






r)u7l -nui 

i/nj 1 — un 1 


7?07 

f C\Jf 


vOr 1 WW 






DH'^'^sOMl 
unj*j~i/n 1 


r CUO 


UOr 1 vO 






unjH— un 1 


7P09 


uo r 1 vO 






unjj"*un 1 


• C 1 U 


0^71 OA 

UOr 1 UO 






unjo— 'Un 1 


7?1 1 


I/O ' 1 vW 






nM^7=nMi 

unj ' — un 1 


7?1? 


0^71 HA 

vO 1 VO 






nM40snMl 
unHU"*un 1 


7?1^ 

r C 1 J 


wO r 1 vO 






nu4i=hMi 

unH 1 — un 1 


72U 


wOr 1 vO 






unHc— un 1 


7215 


uo r 1 uo 








r C 1 0 


uo r 1 uo 






unHH— un 1 


7717 


UOr UO 






DH45=DH1 


7?1R 


0A7inA 
UOr 1 UO 






uncHD—un 1 


7219 

r c 1 T 


uv r 1 UO 






unHO"*un 1 


7??0 
7221 
7222 


UOr 1 UO 






unH ' — un 1 


0A7106 








uo r 1 VO 








7225 


0A7106 

UOr 1 VO 






un jc^un 1 

AMI ^ IsRMI 
un 1 1 1 i/n 1 




0A710A 

VO r 1 uo 






7PPS 


OA/IO^ti 

uo r 1 uo 






DMl 17=nMl 

un 1 1 C*Uri 1 


r ecu 


067106 






DM1 1 TsDMl 

Vim 1 1 J^Vrj 1 


7227 


067106 






DH114=DH1 


7228 067447 


040 


040 


124 


DH115; .ASCII 


7229 067510 


107 


117 


124 


.ASCI2 


7230 


067447 






DH116=DH115 


7231 


067447 






DH117=DH115 


7232 


06744.7 






DH120-DH115 


7233 


067447 






DH121=DH11S 



.S8TTL ERROR DATA TABLE HEADERS 

• TEST. '<TAB>' CALL AT PC. •<TAB>' ERROR AT PC.'''TAB> 
•GOT FPS.'<TAB>'EXPECTED KPS.' 

• TEST. '<TAB>' CALL AT PC. •<TAB>' ERROR AT PC 



• TEST.'<TA8>'PC OF CALL. '<TAB>'PC OF ERROR. •<TA8>'F EC. •<TAB>'FPS. * 

' TEST.'<TA8>'PC OF CALL '<TAB>'PC OF ERROR. •<TA8> 
•GOT FEC.'<TA8>^EXPECTED FEC 

• TEST. •<TA8>'PC OF CALL. •<TA8>'PC OF ERROR. •<TA8>'F PS. ' 



• TEST.'<TAB>'PC OF CALL. '<TAB>'PC OF ERROR. •<TAe> 
•GOT FEC. "GOT FPS. * 'EXPECTED FPS.^ 



CKFPBCO FPIIf FLTG PNT PRT B NACRO mi15 20-0CT-81 08:27 PAGE 36-1 SEQUENCE 
ERROR DATA TABLE HEADERS 



7234 


067447 


DH122=DH115 


7235 


067106 


DH123=DH1 


7236 


067106 


DH124=DH1 


7237 


067106 


DH125:DH1 


7238 


067106 


DHl26sDHl 


7239 


067447 


DH127=DH115 


7240 


067447 


DH130-DH115 


7241 


067447 


DH131=DH115 


7242 


067106 


DH132=DH1 


7243 


067447 


DH133=DH115 


7244 


067447 


DH134=DH115 


7245 


067106 


DH135=DH1 


7246 


067447 


DH136=DH115 


7247 


067447 


DH137=DH115 


7248 


067^47 


DH140=DH115 


7249 


067447 


DH141=DH115 


7250 


067447 


DH142=DH115 


7251 


067447 


DH143=DH115 


7252 


067447 


DH144=DH115 


7253 


067106 


DH145=DH1 


7254 


067106 


DH146=DH1 


7255 


067106 


DH147=DH1 


7256 


067106 


DH150=DH1 


7257 


067447 


DH151=DH115 


7258 


067447 


DH152=DH115 


7259 


067447 


DH153=DH115 


7260 


067447 


DH154=DH115 


7261 


067447 


DH155=DH115 


7262 


067447 


DH156=DH115 


7263 


067106 


DH157=DH1 


7264 


067447 


DH160=0H115 


7265 


067106 


DH161=DH1 


7266 


067106 


DH162=DH1 


7267 


067447 


DH163=DH115 


7268 


067106 


DH164=DH1 


7269 


067106 


DH53=DH1 


7270 


067106 


DH54=DH1 


727} 


067106 


DH55=DH1 


7272 


067106 


DH56=DH1 


7271 


067106 


DH57=DH1 


727 U 


067106 


DH60=DH1 


7275 


06^106 


DH61=DH1 


7276 


067106 


DH62=DH1 


7277 


067106 


DH63=DH1 


7278 


067106 


DH64=DH1 


7279 


067106 


0H65=0H1 


7280 


067106 


DH66=DH1 


7281 


067106 


DH67=DH1 


7282 


067106 


DH70=DH1 


7283 


067106 


DH71=DH1 


7284 


067106 


DH72=DH1 


7285 


067106 


DH73=DH1 


7286 


067106 


DH74=DH1 


7287 


067106 


DH75=DH1 


7288 


067106 


DH76=DH1 


7289 


067106 


DH77=DH1 


7290 


067106 


DHIOO^DHI 
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D 13 
PAGE 36-2 



SEQUENCE 159 



( 


UO' I Uo 




1 CiC. 


a2 71 
UO' 1 UO 




1 cyb 


Uof lUo 




700/ 


nil. 71 t\t. 
UO' 1 UO 




70OC 

f dyj 


AiL 71 AZ, 

UO' lUO 






AiL71 AZ 

UO' 1 UO 




70Q7 


UO' 1 UO 




70QB 
f £70 


UO' 1 UO 




7000 


UO' *••» ' 






UO' *••» ' 




77m 

f jU I 


UO' *•«•' 




77no 

f J\JC 


UO' ' 




7X(\X 

( jU J 


UO' *•«• ' 






0A7447 

UO' HH ' 




77n? 


UO' ' 




I jUO 


UOf •»«• ' 




7707 


UO' *»H f 






OA 744 7 
UO' ' 




77nQ n/'.7CAA 


040 
UhU 


040 
UHU 


771 n 

f J 1 u 


0A7447 
UO' HH ' 




771 1 


0A7447 
UO' •••• ' 




771 ? 


0A7447 
UO' ' 




771 7 


0A7447 

UO' HH ' 




771 L 


0A7447 
UO' HH ' 




771 S 


0^7447 

UO ' HH ' 




f J 1 o 


0/\7447 

UO' "H ' 




7X17 n/\7An7 


040 

UH V 


040 

UHU 




040 

UHU 


040 

vH V 




01 1 
U 1 1 


107 

1 U' 


773n nA77X7 

f JCw UOf r Jf 


040 

UHU 


040 

UHU 


7731 


0A77X7 

UO' ' Jf 




773? 


0A7A47 

UO' OHf 




f jCj 


0A7A47 

UO' OH r 




1 JC** 


0^7^47 

UO' OH ' 




773^ 


0A7/\47 

UO' OH' 




77?A 
f JCO 


0A7777 

UO f f ■Ji 




7737 n7nnnn 


040 

UHU 


040 

UHU 


773S 0700^0 


01 1 
U 1 1 


1 UO 


7730 


0A77X7 
UO' 'J' 




7770 


0A7A07 

UOr OUr 




7771 


0A77X7 
UO' f Jf 




7773 


0A7A07 
UO' OU' 




7777 


0A77X7 

UOf f Jf 




777A n7nn';x 

f jjH vfVvJ-J 


040 

UHU 


040 

UHU 


7XX^ 070113 


01 1 

U 1 1 


107 

1 U' 


777A 0701^3 


040 
UHU 


040 

UHU 


77X7 070301 


01 1 


107 

1 Uf 


777fl 


Ur UUP.> 




7770 


070143 
Uf U IHc 




77A0 


070143 
U' U 1 He 




7X41 






7342 






7343 070231 


040 


040 


7344 






7345 070272 


040 


040 


7346 070332 


Oil 


107 


7347 







124 



124 
124 
117 
124 



124 
120 



124 
117 
124 
117 



DH10V 

DH102: 
0H103^ 
DH104: 
0H105^ 
DH106^ 
DH107: 
OHIIO^ 
DH165^ 
DH166^ 
DH167^ 
DH170^ 

0H171: 

DH1 72 
DH173 
DH174: 
DH175 
DH176 
DH1 77 
DH200 
DH201 
DH202 
DH203 
DH204 
DH205 
DH206 
DH220 
DH207 

DH210 
DH211 
DH212 
DN213 
DH214 
DH215 
DH216 
DH217 

DH221 
DH222 
DH223 
DH224 
DH225 
0H226 

DH227 

DH230 
0H231 
DH232 



DH1 
DH1 
DH1 
DH1 
DH1 
DH1 
DH1 
DH1 
DH115 
DH115 
DH115 
DH115 
DH115 
DH115 
DH115 
DH115 
DH115 
DH115 

.ASCIZ 
DHIIS 
DH115 
DH115 
DH115 
DH115 
=DH115 
DH115 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCIZ 
=DH210 
=DH207 
=0H207 
S0H207 
SDH207 
=DH210 
.ASCII 
.ASCIZ 
=DH210 
=DH220 
=DH210 
=DH220 
=DH210 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
-DH226 
=DH227 
=DH227 



124 DH233: .ASCIZ 



TESTI<TAB>IERR PC!<TA8>!CPU ERROR REGISTER! 



' TEST.'<TA8>'PC OF CALL. •<TAB>'Pf OF TRAP.* 

• TEST.'<TA8>*PC OF CALL. •<TAB>*PC OF ERROR.' 
<TA8>'60T FPS.'<TAB>'EXPECTED FPS.' 

• TEST.'<TA8>'PC OF CALL. •<TAB>'PC OF ERROR.' 



124 
117 



DH234: 



.ASCII 
.ASCIZ 



' TEST.'<TA8>'PC OF CALL. •<TA8>'PC OF ERROR." 
<TAB>'FPS.'<TAB>'FEC.' 



• TEST.'<TA8>'PC OF CALL. '<TAfl>'PC OF TRAP.' 
<TA8>'60T FEC.'<TA8>'EXPECTED FEC 

• TEST.'<TA8>'PC OF CALL. '<TAB>'PC OF TRAP.' 
<TAB>'GOT FPS.'<TAB>*EXPECTED FPS.' 



' TEST.*<TA8>'PC OF CALL. •<TAB>'PC OF ERROR.' 

' TEST.'<TAB>'PC OF CALL. '<TA8>'PC OF ERROR.' 
<TA8>'G0T R0.'<TA8>' EXPECTED RO.' 
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SEQUENCE 









1?4 


DH23S: .ASCII 


7349 070404 


120 


103 


040 


.ASCII 


7350 








DH?36- ASCII 


f J J 1 U' v*»tU 


\JH\J 


040 


1?4 


r jjc \Jf\JHHH 




10^ 


040 

w*t w 


ASCII 


f J J J \Jf\JHf\J 




105 


130 

1 ^W 


ASCIZ 


f JJH 








DH?37sDH?34 


I J J J 


07057? 






7TS7 n7nsn/» 


UHv 


040 


1?4 


DH240' ASCII 




1?0 


103 


040 

W" w 


ASCII 




107 


117 


1?4 


ASCIZ 










DH241=DH233 

Wnt~ • Irfit^^ 




070?31 








070S06 






DH242=DH240 


JO J 


070?31 






DH243=DH233 


7^<^^ 


070?31 






DH244=DH233 


7^<^^ 

r jO^ 


070?31 






DH245sDH233 




040 


040 

w~w 


124 


DH247: .ASCIZ 


7^A7 070AA^ 


040 


040 

Wf w 


124 


DH250: ASCIZ 


r JUO 


070643 






DH251sDH250 


7'^<^9 

f JO~ 








DH252=DH2 


7370 


0^7176 

V/U* ' ' u 






7371 


067106 






DH2S3=DHl 


737? 


067106 

W ' " WW 






DH254-DH1 


7373 


067106 

WU ' > WW 






DH255-DH1 


7374 


067106 

WW 1 1 WW 






DH256sOHl 


7375 


067106 

WW ' > WW 






Dh257=DH1 


73 7A 


067106 

WW • • WW 






DH260sDHl 


7177 


067106 






DH261=DH1 


7378 


067106 






DH262=DH1 


7379 


067106 






DH263=DH1 


7380 


067106 






0H264»DH1 


7381 


067106 






DH265-DH1 


7382 070703 


040 


040 


124 


DH266: .ASCIZ 


7383 


067447 






DH267=DH115 



• TEST.'<TAB>'PC OF CALL.'<TA8> 
•PC OF TRAP.'<TAfl> 

• TEST.'<TAB>'PC OF CALL.'<TA8> 
•PC OF ERROR. •<TAB>' GOT PC 
<TAB>' EXPECTED PC 



• TEST.'<TAB>'PC OF CALL.^<TAB> 

•PC OF ERROR. '<TAB> 

'GOT FPS.'<TAB>'EXPECTED FPS.' 



TEST.'<TAB>'PC OF CALL . •<TAB>'PC OF TRAP. '<TAB>'FEC 
TEST.'<TA8>'PC OF CALL. '<TA8>'PC OF TRAP.' 



TEST.'<TAB>'PC OF CALL. '<TAB>'PC OF TRAP.' 
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SEQUENCE 161 



738A 




7385 0707A3 


004 


7386 070761 


004 


7387 


A^ A *v y Y 

070743 


-m '9 1% t% 

7388 


070743 


7389 


A^ A^ / 

070743 


7390 


A *V A^ / Y 

070743 


7391 


A^ A^ y Y 

070743 


7392 


A^ A ^ y Y 

070743 


7393 


A^ A^ / 7 

070743 


7394 


A'^A^y T 

070743 


7395 


A^ A^ y V 

070743 


7396 


A^A^y 9 

070743 


7397 


A^A 9 y 9 

070743 


7398 


A^A^y T 

070743 


7399 070773 


A Ay 

004 


7400 071002 


A A / 

004 


7401 


A 74 AA*^ 

071002 


7402 


A'94 AA^ 

071002 


7403 071012 


A Ay 

004 


7404 


A'94 A4 ^ 

071012 


^y /\r 

7405 


071012 


7406 


A'94 A4 ^ 

071012 


^y 

7407 


0710V 


7408 


A'^4 A4 ^ 

071012 


^y /\A 

7409 


071012 


^y 4 A 

7410 


A^l A1 ^ 

071012 


7411 071036 


004 


^y 4 ^ 

7412 


A71 AV^ 

071036 


^y 4 9 

7413 


A71 AT^ 

071036 


vy 4 y 

7414 


A71 AV^ 

071036 


^y 4 r 

7415 


A71 A1 ^ 

071012 


^y 4 ^ 

7416 


A71 A1 ^ 

071012 


^y 4 

7417 


ATI Ai 

071012 


^y 4 a 

7418 


A'74 A4 

071012 


^y 4 n 

7419 


A71 Ai 


7420 


A7i A1 '3 


7421 


A7i Ai 


7422 


ATi AT^ 


^y '>T 

7423 


AT « ATX. 

071036 


7424 


ATI AT^ 


7425 


ATi AT^ 


7426 


ATi ATX 


^y 

7427 


ATi ATX 

071036 


^y 

7428 


ATi Ai 

071012 


7y '^n 

7429 


ATi Ai 

071012 


7430 


A71 AI 

0^1012 


■^y T4 

7431 


A71 AI 

071012 


7432 071062 


AA/ 

004 


7433 


ATi AX ^ 

071062 




yjf 1 uoc 


7435 


071062 


7436 


071062 




071062 




071036 


7439 


071036 


7440 


071036 



000 
000 



000 
000 



000 



000 



000 



005 
005 



005 



.SBTTL 
.BYTE 
.BYTE 



005 DF1: 
005 DF2: 

DF3=DF1 
DF4=DF1 
DF5=DF1 
DF6=DF1 
DF7=DF1 
DF10=DF1 
DF11=DF1 
DF12=DF1 
DF13=DF1 
DF14=DF1 
DF15=DF1 
DFl6sDF1 
DF:7: .BYTE 
DF20: .BYTE 
DF2UDF20 
DF22=DF20 
DF23: .BYTE 
DF24=DF23 
DF32sDF23 
DF25=DF23 
DF26sDF23 
DF27=DF23 
DF30=DF23 
DF31=DF23 
005 DF33: .BYTE 
DF34=DF33 
DF35=DF33 
DF36=DF33 
DF37=DF23 
DF40sDF23 
DF41=DF23 
DF42=DF23 
DF43=DF23 
DF44=DF23 
DF45=DF23 
DF246=DF33 
DF46=DF33 
DF47=DF33 
DF50=DF33 
DF51=DF33 
DF52=DF33 
DF111SDF23 
DF112=DF23 
DF113=DF23 
DF114=DF23 
005 DF115: .BYTE 
DF116=DF115 
DF117=DF115 
DF120=DF115 
DF121=DF115 
DF122=DF115 
DF123=DF33 
DF124=DF33 
DM25sDF33 



DATA FORMAT SPECIFIERS 

4.0.5.0.5.0.5.0.5.5,3.5.5.3 

4.0.5.0.5.5.3.5.5.3 



4.0.5.0.5.0.0 
4.0.5.0,5,0,5,0 

4,0,5,0,5,0,5,0.5,5,2,5,5,2,5,5,2,5,5,2 



4,0.5,0,5,0,5,0,5,5,3,5,5,3,5,5,3,5,5,3 



4,0,5.0.5,0,0,0.5,5,2,5.5,2,5,5,2,5,5,2 



6 13 
37-1 



CKFPBCO FPllF FLT& PNT PRT B HACRO 20-OCT-81 08:27 PAGE 37-1 SEQUENCE 

DATA FOIWAT SPECIFIERS 

744 1 071036 DF126=DF33 

7442 071106 004 000 005 0F127: .BYTE 4,0,5,0.5,0.0,0,5,5,3,5,5.3,5.5,3,5.5.3 

7443 071106 DF130=DF1 27 

7444 071106 DF131=DF127 

7445 071036 DF132=DF33 

7446 071106 DF133=DF1 27 

7447 071106 DF134=DF127 

7448 071036 DF135=DF33 

7449 071106 DF136=DF1 27 

7450 071062 DF137=DF115 

7451 071062 DF140=DF115 

7452 071062 DF141=DF115 

7453 071062 0F142=DF115 

7454 071062 DF143=DF115 

7455 071062 0F144=DF115 

7456 071012 DH45=DF23 

7457 071012 DF146=DF23 

7458 071012 DFU7=DF23 

7459 071012 DF150=DF23 

7460 071106 DF151=DF1 27 

7461 071106 DF152=DF127 

7462 071106 DF153=DF1 27 

7463 071106 OF 154=DF1 27 

7464 071106 DF155=DF1 27 

7465 071106 DF156=DF1 27 

7466 071036 DF157=DF33 

7467 071106 DF160=DF1 27 

7468 071036 0F161=DF33 

7469 071036 0F162=DF33 

7470 071106 OF 163=0F1 27 

7471 071036 0F164=0F33 

7472 071132 004 000 005 DF53: .BYTE 4,0,5,0,5,0,5,0,5.5,2.5.5.2.5,5.2.5.5.2.5.5.2.5.5.2 

7473 071132 DF54=DF53 

7474 071132 0F55=OF53 

7475 071132 0F56=0F53 

7476 071132 0F57=0F53 

7477 071132 0F60=0F53 

7478 071132 0F61=0F53 

7479 071132 0F62=0F53 

7480 071132 0F63=0F53 

7481 071132 0F64=0F53 

7482 071132 0F65=0F53 

7483 071132 0F66=DF53 

7484 071132 0F67=DF53 

7485 071164 004 000 005 0F70: .BYTE 4.0.5.0.5.0.5.0.5.5.3.5.5.3.5.5,3.5.5.3.5.5.3.5.5.3 

7486 071164 DF71=DF70 

7487 071164 DF72sDF70 

7488 071164 0F73=DF70 

7489 071164 0F74=DF70 

7490 071164 0F75=DF70 

7491 071164 DF76=DF70 

7492 071164 0F77=DF70 

7493 071164 0F10O=DF70 

7494 071164 OF101=DF70 

7495 071164 0F102=DF70 

7496 071164 0F103=0F70 

7497 071164 DF104=0F70 



CKFPBCO FP11F 


FLTG PNT 


DATA FORMAT SPECIFIERS 


7498 


071164 


7499 


071164 


7500 


071164 


7501 


071164 


7502 071216 


004 


7503 


071216 


7504 


071216 


7505 


071216 


7506 


071216 


7507 


071216 


7508 


071216 


7509 


071216 


7510 


071216 


7511 071250 


004 


7512 071302 


004 


7513 


071250 


7514 


071250 


7515 


071250 


7516 


071250 


7517 


071250 


7518 


071250 


7519 


071250 


7520 071305 


004 


7521 071315 


004 


7522 


071315 


7523 071341 


004 


7524 


071341 


7525 


071341 


7526 


071341 


7527 


071315 


7528 071371 


004 


7529 


071315 


7530 


071315 


7531 


071315 


7532 


071315 


7533 


071315 


7534 


071315 


7535 


071341 


7536 


071341 


7537 


071341 


7538 


071341 


7539 


071341 


7540 071400 


004 


7541 071415 


004 


7542 




7543 071424 


004 


7544 


071415 


7545 


071415 


7546 


071415 


7547 


071400 


7548 


071415 


7549 


071400 


7550 


071400 


7551 


071400 


7552 071430 


004 


7553 


071430 


7554 


071430 
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SECiJENCE 163 



000 



000 
000 



000 
000 

000 



000 



000 
000 

000 



000 



DF105 
Of 106 
DF107 
DF110 

005 DF165 
DF166 
DF167 
DF170 
DF171 
DF172 
DF173 
DF174 
DF175 

005 DF176 

000 DF177 
DF200 
DF201 
DF202 
DF203 
DF204 
OF 205 
DF206 

005 Dr210 

005 DF207 
DF211 

005 DF212 
DF213 
DF214 
DF215 
DF216 

005 DF217 
DF220 
DF221 

DF223 
DF224 
DF225 
DF226 

x>nv 

DF230 
DF231 
DF232 
005 DF233 
005 OF 234 

005 DF235; 
DF236= 
DF237: 
DF240- 
DF241: 
DF242: 
0F243= 
DF244= 
DF245= 

005 DF247; 
DF250= 
DF251: 



DF70 
=DF70 
=DF70 
DF70 

.BYTE 
OF 165 
OF 165 
OF 165 
DF165 
=DF165 
OF 165 
DF165 
OF 165 
.BYTE 
.BVTE 
OF 176 
OF 176 
=DF176 
DF176 
=DF176 
=DF176 
=DF176 
.BYTE 
.BYTE 
OF 207 
.BYTE 
=DF212 
=0F212 
=0F212 
-DF207 
.BYTE 

=[>F207 
=0F207 
=DF207 
=DF207 
=DF207 
=DF212 
=DF212 
=DF212 
=DF212 
=0F212 
.BYTE 
.BYTE 

.BYTE 
OF 234 
OF 234 
OF 234 
OF 233 
OF 234 
OF 233 
OF 233 
0F233 

.BYTE 
OF 24 7 
OF 2'. 7 



4.0.5.0,5.0.0.0,5,5,2.5.5.2.5,5,2.5,5.2.5,5,2,5,5,2 



4.0,5,0,5,0,0,0,5.5.3.5.5.3,5,5.3.5,5,3.5,5,3,5,5,3 
4,0,0 



4,0,5,0,5,0,5,0 

4,0,5,0,5.5,5,3,5,5,5,3,5,5,5,3,5,5,5,3 
4.0,5,0,5,0,5,0,5,5,5,3,5,5.5.3,5.5,5,3,5,5,5.3 



4.0.5.0.5.0.0 



4.0.5.0.5.5,3.5.5.3.5.5.3 
4.0.5.0.5,0.0 

4,0.5.0 



4.0.5.0.5,0 



CKFPBCO FPIIF FLTG PNT PRT B 
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7555 

7556 07U36 

7557 07U42 
7558 

7559 
7560 
7561 
7562 
7563 
7564 
7565 
7566 
7567 
7568 
7569 
7570 



004 
004 
071442 
071442 
071442 
071442 
071442 
071442 
071442 
071442 
071442 
071442 
071436 
071250 



000 

oco 



005 DF252: 
005 DF253; 
DF254: 
0F255: 
0F256= 
DF257: 
DF260: 
DF261= 
DF262' 
DF263= 
DF264= 
DF265: 
DF266: 
OF 267: 



.BYTE 
• BYTE 

=DF253 

:DF253 

DF253 

:DF253 

:DF253 

:DF253 

0F253 

DF253 

:DF253 

OF 253 

rDF252 

:DF176 

.EVEN 



4.0.5.0 

4.0.5,0.5.0.5.0,5.5,0,5,5,0.5,5,0,5,5,0,5,5,3.5,5,3 



CKFPeCO FP11F FLTG PNT PRT B HACRO HlllS 20-0CT-81 
ERROR DATA TABLES 



7C7^ 








CO f Tl 

.Sol iL 




00123^ 


AAI OTy 


Ay AAAC 

040003 


Oil: . WUHD 




001 Jl J 


A/ AAI 0 
04001 £ 


AAI 0/ A 

00 lc40 


.WORD 




AA1 TIO 


AAI ^7/ 

00 ic34 


A/ AAAC 

040003 


DT^: .WORD 


7C 7C 


ATI / T/ 






l\T 7— l\T 1 

DT3-DT 1 


7C7it. 


ATI / 7/ 

Of Ih/^<i 






DT4=DT1 


7C77 

fjff 


ATI / TZ 
Of * 






PT3-DI 1 


7C 70 


ATI / T/ 
Of I^f * 






D 1 0=DT1 


75 7Q 


AT 1 y Ty 






l\ TT'—A • t 

OT/^-D ! 




ATI L7/ 
Uf 1 Hf H 






f\ T 1 A— A* "f 


7CB1 


ATI Z 7L 
Uf 1 Hf *» 






r\Tl 1 — f\Tl 
0 1 1 l-D 1 1 




ATI /. 7Z 
Uf l*»f <l 






AT 1 3— 1» f 1 
Of 1£~V 1 1 

nT^ 7. Ml 




ATI Z 7Z 
Uf iHf H 






7Cfl/. 


A71 Z7/ 
Uf 1 *l f H 






l\T 1 / —ATI 


7CflC 


ATI Z7Z 
Uf IHf *» 






AT 1 C-'ATI 

0' 13*01 1 


r 500 


ATI Z7Z 
Uf^ IHfH 






ATI il— AT 1 


7^B7 n71 QiLM 


UU 1 i3t 


A0 1 5 7Z 
UU 1 CJH 


ozoooc 
UhUUU3 




fjoo Uf louo 


AAI 5 70 
UU 1 CJ£ 


A01 57Z 
UU 1 d^H 


ozooo^ 
U*)UUU3 


ATOn • UADA 

0 1 cU : . UUnO 


f JOT Uf lOCC 


AAI 375 


001 57Z 
UU 1 CJ*t 


ozoooc 
U»»UUU3 


AT51 • UADA 

0 1 c 1 : . WUNO 




AAI 075 
UO l£JC 


AA1 57Z 


Az aaOc 
UhUU03 


Oicc: .WUHD 


7^Q1 n71/LiL7 
f JT 1 1 OOc 


Oni 575 
UU 1 CJC 


Ofll 57Z 
UU 1 CJH 


AZOOOC 
U*iUUU3 


AT57- unon 
0 1 c3 • . WUKO 


7^03 n7171A 
IJTC \)f 1 f 10 


oni 71 7 

UU 1 J 1 J 


OZ01 5^ 
U*»U 1 c> 


001 3ZZ 
UU 1 cHH 


UADA 

. WUnO 




A71 AA5 
Uf lOOc 






AT75-AT57 
0 1 3c-0 1 c3 


7CO/. 


071 ilA5 
Uf lOOC 






nT3Z-AT57 
0 1 c«»-0 1 c3 


7CO^ 


071 AA5 
Uf lOOC 






AT5C-nT57 




071 AA5 
U f 1 OOc 






AT3A-AT37 
0 1 cO-0 1 c3 


7<07 


071 AA5 
Uf lOOc 






AT57-AT57 
0 1 Cf -0 1 CJ 


f jtO 


071 

Uf 1 OOc 






AT7n— AT57 
0 1 31/ -0 1 c3 




071 AA5 
Uf 1 OOc 






nT71 -AT57 
0131 ~V 1 c3 




071 AA5 
Uf lOOc 






AT77-nT57 
0 1 33-0 1 c3 




071 

Uf lOOC 






hT7Z— AT57 
0 13«»-0 1 c3 




071 

Uf lOOc 






nT7C-nT57 
0 1 33-0 1 c3 




071 AA5 
Uf lOOc 






AT7A-AT57 
0 1 30-0 1 c3 


7AA/. 


071 

Ur 1 00£ 






AT77-nT57 
0 I3f -0 1 c3 


7An< 
f OU5 


071 AA5 
Uf lOOc 






ATZO— hT57 
0 ihU-0ic3 


f OvO 


071 

Uf 1 OOc 






0 1 1 -U 1 c3 




071 AA5 
Uf lOOc 






ATZ5— nT37 
0 1 HC-0 1 CJ 


'QUO 


071 AA5 
Uf lOOc 






ATZ 7— nT57 

0 1 h3-0 I c 3 


r OUT 


071 AA5 
Uf lOOc 






ATZZ— AT57 
0 1 HH-0 ! c3 


r 0 1 U 


071 

Uf 1 OOc 






ATAC-nT57 
V 1 Hj~V 1 c3 


7A1 1 
r 0 1 1 


071 AA5 
Uf lOOc 






nTZAi!fnT57 

0 1 *»0-U 1 c3 


7A1 ? 
r 0 l£ 


071 

Uf lOOc 






ATZ7-ftT57 
0 l*»f -0 1 c3 


7A1 


071 

Uf lOOc 






ATCO— nT57 
0 1 3U-0 1 c3 


7A1 A 
f 0 1 *• 


071 AA5 
Uf lOOe 






nici -nT57 
013 1-01 c3 


7A1 ^ 
/ 0 1 3 


071^5 
Uf lOOc 






nTC5-nT57 

0 1 JC-0 1 C3 


' 0 1 0 vf I f jt 


001 57? 
UU 1 CJC 


00 1 5 7A 
UU 1 CJ** 


ozoooc 

U*lUUU3 


nTC7« unon 
0133: .WOnP 


7A17 071 7SA 


001 71 7 

UU ijij 


OZOOl 5 
UhUU I C 


001 3Z0 
UU I£HU 


. WOKO 


7x1 a 071770 
rOlO \Jf 1 1 i\J 


001 71 7 

UU 1 J 1 J 


AZAP77 


OOI 5ZZ 
UU 1 CH*» 


unon 
.WUNO 


7A10 07700^ 


001 71 7 
UU 1 J 1 3 


0^01 AC 
UhU 103 


001 3C0 
UUic3U 


unon 
.WUNO 




071 7'?^ 
Uf 1 f J** 






0 1 3H-0 1 33 


7621 


071 734 








7622 


071734 






0T56=DT53 


7623 


071734 






0T57=DT53 


762A 


071734 






DT60=DT53 


7625 


071734 






DT6UDT53 


7626 


071734 






0T62=0T53 


7627 


071734 






0T63=0T53 
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ERROR DATA TABLES 

$T«PO , $ TMP 1 . $ TAB . $TMP2 , $ TAB . $T«P5 . $TAfl . $THP6 
SCRLF .HS1 .$TnP3,iCRLF .«S2,$T«P4.0 

$T«PO . $THP1 , $TAB . $THP2 . SCRLF ,MS3, $THP3 . $CRLf .HS4 , STHP4 . 0 



$T«P0,$T«P1, STAB, $T«P2, STAB, $T«P4,$T«P5.0 
ST«P0,ST«P1. STAB. $THP2. STAB, STMP4, STAB, STMP5.0 
STMPO , STWP1 , STAB, ST«P2 , STAB , STHP4 , STAB , $TMP3 ,0 
STWPO.STHPI . STAB, STHP2, STAB, STHP5,0 

STMPO.STnPI , STAB, ST«P2, STAB. STMP7. STAB. $T«P10, SCRLF .MSI ,ST«P3, SCRLF ,MS2.STWP 
SCRLF ,«S5,STMP5. SCRLF .MS6.STMP6.0 



$T«P0,$T«P1 . STAB- $T«P2, STAB. $T«P1 1 .$TAB.STHP12 
SCRLF ,HS1 ,STW>3.iCRLf .«S2,ST«P4 
SCRLF, W11,STHP5-SCRLf,«S12.ST«P6 
SCRLF .«S7,iTHP7.$CRLF.«SlO.$TMP10,0 



CKFPBCO FPIIF FLT6 PNT PRT B 
ERROR DATA TABLES 



7628 

7629 

7650 

7631 

7632 

7633 

763A 

7635 

7636 

7637 

7638 

7639 

76A0 

7641 

7642 

7643 

7644 

7645 

7646 

7647 

7648 

7649 

7650 

7651 

7652 

7653 072022 

7654 072044 

7655 072060 
7656 

7<S57 
7658 
/•659 
7660 
7661 
7662 
7663 
7664 
7665 
7666 
7667 
7668 
7669 
7670 
7671 
7672 
7673 
7674 
7675 
7676 
7677 
7678 
7679 
7680 
7681 
7682 
7683 
7684 



071734 
071 734 
071734 
071734 
071734 
071734 
071 734 
071734 
071734 
071734 
071734 
071734 
071734 
071734 
071 734 
071734 
071734 
071734 
071734 
071 734 
071 734 
071662 
071662 
071662 
071662 
001232 
001313 
001313 
072022 
072022 
072022 
072022 
072022 
071662 
071662 
071662 
071662 
072022 
072022 
072022 
071662 
072022 
072022 
071662 
072022 
072022 
072022 
072022 
072022 
072022 
072022 
071662 
071662 
071662 
071662 
072022 
072022 



001234 
040012 
040125 
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0T64sDT53 
0T65=0T53 
DT66=DT53 
DT67=DT53 
DT70=DT53 
0T71=DT53 
DT72=DT53 
DT73=DT53 
0T74=DT53 
DT75=DT53 
DT76=DT53 
DT77=DT53 
DT100=DT53 
DT101=DT53 
DT102=DT53 
DT103=DT53 
0T104=DT53 
DT105=DT53 
DT106=DT53 
0T107=DT53 
DT110=DT53 
DT111=DT23 
DT112=DT23 
DT113=DT23 
0T114=DT23 
040005 DTI 15: .WORD 
001240 .WORD 
001244 .WORD 
0T116=DT115 
DT117=DT115 
DT120=DT115 
DT121=DT115 
DTI 22=011 15 
DT123=DT23 
DT124=DT23 
DT125=DT23 
DT126=DT23 
0T127=DT115 
DT130=DT115 
DT131=DT115 
DT132=DT23 
DT133=DT115 
DT134=DT115 
DT135=DT23 
DT136=DT115 
DT137=DT115 
0TU0*0T115 
DT141sDT115 
DTU2=DT115 
0T143=DT115 
0T144=DT115 
DT145=DT23 
DT146=0T23 
0T147=DT23 
OT150=DT23 
PT151=DT115 
DT152=0T115 
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SEQUENCE 166 



$TMP0,$THP1,$TAB.$T«P2,$TA8,$THP11,$T«P7.$TAB.$T«P10 
SCRIF ,HS1 .$T«P3,$CRLF .«S2.$THP4 
SCRLF .HS5 , $TW>5 .$CRLF .«S6 . f T«P6 , 0 



CKFPSCO FP11F FLTG PNT PRT B HACRO M1113 20-OCT-81 
fcRROR DATA TABLES 



768 S 


072022 






DT153=DT115 




072022 






DT154=DT115 


7687 


072022 






DT155=DT115 


7688 


072022 






DT156=DT115 


7689 


071662 






DT157=DT23 


7690 


072022 






DT160=DT115 


7691 


071662 






DT161=DT23 


7692 


071662 






DT162=DT23 


7693 


072022 






DT163=DT115 


7694 


071662 






DT164=DT23 


7695 072076 


001232 


001234 


040005 
001240 


DTI 65: .WORD 


7696 072116 


001313 


040012 


.WORD 


7697 072132 


001313 


040233 


001244 


.WORD 


7698 072 U6 


001313 


040165 


001250 


.WORD 


7699 


072076 






DT166=DT165 


7700 


072076 






DT167=DT165 


7701 


072076 






DT170=0T165 


7702 


072076 






DT171=0T165 


7703 


072076 






DT172sDT165 


7704 


072076 






DT173=DT165 


7705 


072076 






DT174sDT165 


7706 


072076 






DTl75sDT165 


7707 


072076 






DT176=DT165 


7708 072164 


001232 


001234 


034422 


DTI 77: .WORD 


7709 


072076 






D T 200=0 T 165 


7710 


072076 






DT201=DT165 


7711 


072076 






DT202=DT165 


7712 


072076 






DT203=DT165 


7713 


072076 






DT204=0T165 


7714 


072076 






DT205=0T165 


7715 


072076 






DT206=0T165 


7716 072174 


001232 


001234 


040005 


DT207: .WORD 


7717 072214 


001313 


040400 


001313 


.WORD 


7718 072234 


001313 


040433 


001313 


.WORD 


7719 072246 


001232 


001234 


040005 


DT210: .UORD 


7720 072262 


040005 


001242 


000000 


.UORD 


77 ""I 


072174 






DT21 1=01207 


7722 072270 

7723 072310 


001232 


001234 


040005 


07212: .WORD 


001313 


040354 


001313 


.yORO 


7724 072330 


001313 


040416 


001313 


.WORD 


7725 


072270 






DT213=DT212 


7726 


072270 






DT214=0T212 


7727 


072270 






DT215=DT212 


7728 


072174 






DT216=0T207 


7729 072352 


001232 


001234 


040005 


DT217: .WORD 


7730 


072174 






DT220=DT207 


7731 


072174 






DT221=0T207 


7712 


072174 






DT222=DT207 


7711 


072174 






0T223=0T207 


77% 


072174 






0T2?«=0T207 


7755 


072174 






DT225=0T207 


77U> 


072270 






DT226=0T212 


7737 


072270 






DT227=0T212 


771S 


072270 






DT230=0T212 


7739 


0722i*f> 






DT231=0T210 


7740 


072174 






DT232=0T207 


7741 072372 


001232 


001234 


040005 


0T233: .WORD 
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SEOUE><CE 167 



$T«P0,$T«P1,$TAB.$T«P2.fTAB,$T«P13,$T«Pll,$T«P12 
SCRLF .«S1 -$T«P3-$CRLF .«S2,$T«P4 
$CRLF ,«S1 1 .$T«P5,$CRLf ,«S12,$T«P6 
SCRLF ,NS7,iTMP7, SCRLF ,nSlO,STMP10,0 



ST«PO,STHP1.CPSAVE.O 



STHPO , ST W»l . STAB . STHP2 . SCPLF .«S41 . SCRLF ,ST«P3 
SCRLF .«S42 .SCRLF ,ST«P4,SCr^LF .«S43. SCRLF ,STHP5 
SCRLF, nS44.SCRLF,STnP6,0 
STnP0.STNPl,STAB.STnP2,STAB.STnP3 
STAB,iTMP4,6 

STHPO, ST«P1 -STAB ,STHP2 , STAB ,STHP1 0 . STAB , STHP1 1 
SCRLF .nS41 .SCRLF ,STMP3,SCRLF ,MS42, SCRLF ,STnP4 
SCRLF ,nS43.SCRLF .STHPS.SCRLF ,nS44,SCRLF .STnP6,0 



STMPO , ST«P1 , STAB, STHP2 . STAB. STWP3 , STHP4 ,0 



ST«P0,STHP1 . STAB. ST«P2, SCRLF 



CKf P8C0 f PIIF FlTG 
ERROR DATA 'ABlES 



PNi PRT B MACRO n^^^l 20-OCT-81 



7742 072404 


040302 


001244 


77,3 072416 


001313 


040354 


7744 072426 


001232 


001234 


7745 072446 


001232 


001234 


7746 


072426 




77i,7 


072426 




7748 


072426 




7749 


072172 




7750 


072426 




7751 


072172 




7752 


072172 




7753 


072172 




7754 


071662 




7755 072460 


001232 


001234 


7756 072476 


001232 


001234 


7757 


072476 




7758 072510 


001232 


001234 


7759 072522 


001232 


001234 


7760 072542 


001313 


037614 


7761 072556 


001313 


037655 


7762 072572 


001313 


037705 


7763 


072522 




7764 


072522 




7765 


072522 




7766 


072522 




7767 


072522 




7768 


072522 




7769 


072522 




7770 


072522 




777} 


072522 




7772 


072522 




7771 


072510 




777(i 


072076 




7775 072610 


007070 


007070 


7776 


000001 





001313 
001250 
040005 
040005 



040005 
040005 

040005 
040005 
001254 
001244 
001240 



017070 



DT234 

DT235 

DT236 

DT237^ 

DT240 

DT241: 

DT242^ 

DT243^ 

DT244: 

DT245 

DT246 

DT247 

DT250 

DT251 

DT252 

DT253 



DT254 

DT255^ 

DT256^ 

DT257^ 

DT260^ 

DT261 

DT262 

DT263^ 

DT264 

DT265 

DT266 

DT267. 



.WORD 
.WORD 
.WORD 
.WORD 

:DT234 
:DT234 
:DT234 

:DT233 

:DT234 
=DT233 
:DT233 
-DT233 

:DT23 

.WORD 
.WORD 

:DT250 
.WORD 
.WORD 
.WORD 
.UORO 
.WORD 

=DT253 

=DT253 

=DT253 

:DT253 

:DT253 

=DT253 

=DT253 

=DT253 

S0T253 

=DT253 

OT252 

rDT165 
.WORD 
.END 
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SEQUENCE 168 



HS37.$THP5.$CRLF .«S40,$T«P6 
$CRLF.«S41,$THP7.0 

$T«P0.$T«p1,$TA8.$THP2.$TA8.$T«P3,$TW>4,0 
$T«P0,$T«P1 .$TA8,$TnP2,0 



$Tf1P0,$T«Pl ,$TA8.$T«P2.$TA8.$T«P3.0 
$Tf1P0.$T«P1 .$TAB,$T«P2.0 

$T«P0,$T«P1 ,$TAB.$T«P2.0 

$T«P0.$TRP1.$TAB,$T«P2.$TAB.$T«P7,$TAB.$T«P1C 
$CRLF .«SA1 ,$T«P1 1 -$CRLF .«SA^,$T«P12 
$CRLF,«SA3,$T«P5,iCRLF.«SA4,$T«P6 
$CRLF,«SA5.$T«P3,$CRLF,«SA6.$T«P4,0 



7070.7070.7070.7070 



.'KLUDGE FOR APT LOAD PROBLEM 



CKr PbCC 


FPilF FLTG PNi 


PRT B 


M A /* A A 

MACRO 


SYMBOL 


TABLE 






AAADON 




\WS6TT= 


AAAAAA 

OOOOOO 


A A A 1 

AAAl 


013600 


AnTYP 1 = 


AAAAAA 

OOOOOO 


AAAIU 


0 IH^ ID 


Art! tP^= 


AAAAAA 

OOOOOO 


A A A 1 1 

AAA! 1 


/ oc / 




AAAAAA 

ooouoo 


A A A 1 ^ 


/ 7i ^ 

0 Ih3 1^ 


AHT VD/ — 


AAAAAA 

OOOOOO 


AAAl 7 

AAAl 3 


A1 / 7C A 


ArASS = 


AAAAAA 

OOOOOO 


A A A*) 

AAA^ 


Al 


A nil T 


AAAAAA 

OOOOOO 


A A A 7 

AAA3 


A1 7X7/ 


APTCSU= 


AAAA/ A 

OOOOhO 


AAA/ 

AAA»» 


A1 777*5 


AAT ^All/v 

APT :Nv= 


AAAAAi 

00000 1 


AA AC 

AAA3 


A1 777A 


AOT 0 T 7 — 

API SI Z- 


AAAAAA 

OOOfOO 


A A A^ 

AAA6 


A1 / AOX 

01 AOcO 


APT:>PU== 


AAAl AA 

000100 


A A A 7 

AAA^ 


A1 / Ail/ 


A5WKtG= 


AAAAAA 

OOOOOO 


AAAo 


A 1 / 1 T3 


A T C C T 


AAAAAA 

OOOOOO 


A A A O 

AAAV 


A1 / 1 XA 


Al |U IT — 

AUNi 1 - 


AAAAAA 

uooooo 


ADACC — 

AoASt = 


AAA AAA 


A 1 1 Cl lt\ im 

AUdUi< - 


AAAAAA 

OOOOOO 


ACDWl 


AAAAAA 
000000 


AVE 1 1 1 - 


AAAAAA 

OOOOOO 




AAAAAA 
000000 


A IJC r T ^» 

AvcCT ;= 


AAAAAA 

OOOOOO 


ACrUUP- 


A/\AAAA 
000000 


ODOnAki 

OOoDON 


Al C7A/ 

01330h 


ACU 


zouuooo 


BoBcRI 


Al CAi^A 

01 dOoO 


AT i — 

AC 1 


VAAAAA1 

X00OU01 


ooocR^ 


Al CI// 

01 jIhh 


Ar 0 - 


XOOOOOf 


ooocn3 


Al C1 70 

01 Jl f c 


AT T 

AC 5 = 


V/\A/\AA7 

*000003 


BBBcR^ 


Al COOA 
013££0 


AT/ — 

ACh 


VAAAAA/ 
100000% 


OOOrl 


Al C 0/tZ 

01 JCOH 


Arc — 
AC J 


VAAAAAC 
XOOOOO) 


Baarc 


Al C57/ 
01 JCfH 


ACO = 


• AAAAAX 

XUOOOOo 


QOOA 

□ooO 


Al Zill A 


AC = 




boo1 


Al /A/ / 


AODWU - 


AAAAAA 
000000 


000£ 


Al Z/L79 


Anf\LJl w 
AODWl = 


AAAAAA 
000000 


D003 




AODWl U= 


AAAAAA 
000000 


ODD/ 
DODH 


A1Z7CA 


Af\fM_l1 1 — 

AODW 1 1 = 


AAAAAA 
"00000 




Al CAAiC 

01 300o 


AODW 1 i~ 


A/VIAAA 
000000 


BoBo 


Al CA1 / 

OIjOIh 


ADDWl 3- 


AAAAAA 
OOOOOO 


O f TA * 

Bi TU = 


AAAAAI 
000001 


Anf\i_i1 / — 
AODWl 4 ■> 


AAAAAA 
OOOOOO 


Bi lUU = 


AAAAAI 
000001 


Afvmji C — 
ADOWl 5- 


AAAAAA 
OOOOOO 


DfTAI — 


AAAAAO 
OOOOOf 




AAAAAA 
OOOOOO 




AAAAA/ 
OOOOOO 


AODW 3 - 


AAAAAA 
OOOOOO 


O t TAT — 

oi 103 - 


AAAA1 A 

000010 


AODWh - 


AAAAAA 
OOOOOO 


D T T A/ — 

oi 1 Os - 


AAAAOA 

OOOOcO 


ADL)W5 - 


a/Saaaa 
OOOOOO 


a 1 TAC — 
Bi 1 0) - 


AAAA/ ft 

OOOOhO 


AOuWO - 


AAAAAA 

OOOOOO 


Bi 1 Oo - 


AAA1 A A 

0001 uu 


Ar\rM_i7 — 
AUPW^ - 


AAAAAA 


O T TA7 — 


AAAOAA 

OOOcOO 


AOOWo - 


AAAAAA 
OOOOOO 


o r T AO — 

Bi 1 00 - 


AAA/ AA 

OOOhOO 


Af\r\ijQ -> 
AUUWy - 


AAAAAA 

OOOOOO 


C f T AO — 

bi 1 uv - 


AA1 AAA 
001000 


AOc vC 1 - 


AAAAAA 

ouoooo 


O T T1 — 

Bi 1 1 = 


AAAAAO 

00000 


ADt Vn - 


AAAAAA 

ouuooo 


O T T1 A — 

oi 1 lO - 


AAOAAA 

UUcOOO 


AcNv 


AAAAAA 

uooooo 


Dt T1 1 — 

BI 1 1 1 - 


AAZ AAA 

OUhUOO 


ACAJliM — 

AcNVn - 


AAAAAA 

OUUOOO 


D T T1 9 — 

Bi 1 Ic - 


Al AAAA 

010000 


AC A T Al — 


AAAAAA 

OOOOOO 


Bi 1 13 - 


AOAAAA 

OcOOOO 


AltAf\D'1 

AnAON 1 


AAAAA 

OUOOOv/ 


D r T1 z, — 
Bi M*» - 


A/ AAAA 

OhOOOO 


AnAOnt- 


AAAAAA 

OUOUUO 


D 1 T1 C — 

Bi 1 1 J - 


1 AAAAA 

1 oouuo 


AIIAr\D7 — 

AnAUHj- 


AAAAAA 

ooouuu 


D f TO — 
Bi 1 £ 


AAAAA/ 

OOUOOh 


AnADR^- 


AAAAAA 

uooooo 


0 f T 7 — 

01 1 3 


AAAA1 A 

000010 


AAi AMC i — 


AAAAAA 

OOOOOO 


D r T/ — 
Bi 


AAAAOA 

OOOOOO 


AMAMC 0— 


AAAAAA 

OOOOOO 


D f TC — 

Bi 1 J 


AAAA/ A 

OOOOhO 




AAAAAA 
Vvvvwl/ 


Oi 1 u 




AMAflSA= 


OOOOOO 


BIT7 = 


000200 


AMSGAO= 


OOOOOO 


BITS = 


000400 


AMSGLG= 


OOOOOO 


BIT9 = 


001000 







Al IT 

N 13 
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BOTliC f * 

BPTVcC= 


AAAAi / 
00001 H 


ATI 

Dr 1 




CCCPON 


Al X71 / 

0163 


AT i A 

Dr lO 




CCCl 


Ai C71 A 

013310 


AT i AA 

Dr lOO 




/»/»/» i A 

CCCIO 


Al C7A/ 

013/^ Oh 


r\r i Ai 
Dr 101 




CCCl 1 


Al C7Z A 

013/^hU 


r\c 1 AO 
Dr lOc 




CCClc 


Al C77/ 


r\r i A7 
Dr 103 




CCC13 


Al iLA7A 

016030 


i A/ 
Dr IOh 


— 


CCC2 


Al c 7/ / 

01. 3hh 


r\ c i AC 

Dr 103 


— 


CCC3 


Al C/ AA 

013h00 


r\c 1 AX 

Dr 106 




r r f i 
CCC* 


Al C/ 7/ 

013h34 


r\c 1 A7 
Dr lOr 




CCC5 


Al C/ 7A 

013h/0 


Dr 11 




r r r ^ 
iCCo 


Al ceo/ 

0133^H 


nc 1 1 A 
Dr no 






Al CCAA 

01 3360 


Dr 1 1 1 




CCCo 


Al CX.1 L 

01 361 H 


AC 110 

Dr 112 




CCCt 


Al CiLCA 

013630 


nc 117 

Dr 1 13 




CKSWn = 


1 A/ / ni. 
1 OhhOO 


l\C 11/ 

Dr 1 1h 




CnPSOB 


A1Z.Z1 0 

OIhh 7^ 


nc lie 

Dr 113 




Cnr 1 W 


A1/C70 


l\C1 liL 

DPI 16 




TAlT • 

CNF = 


AAA07A 

OOOc/^0 


AC 1 1 7 

Dr n r 




CORDON 


A7777iC 

033336 


AC 1 0 

Dr 1 c 




CORr Lo 


A7770A 

0333c0 


AC 1 OA 

Dr IcO 




r Ab T AiT 

CORiNl 


A77770 


nc 1 01 
Dr Icl 




CORrtcS 


A/ A/ CC 

0h0h33 


nc 1 OO 

Dr 122 




r ADCI ID 

CORoUd 


A77A7A 

033036 


nc 1 07 
Dr 123 




COR inr 


A77700 

0333££ 


nc 1 0/ 
Dr 12h 




TAD TDD 

COR iRr 


A7777Z 


nc 1 OC 
Dr 1 23 




rnoTu 
COR 1 V 


A771 7/ 

033 13H 


nc 1 OiL 
Dr 1 26 




r ADTWA 

CORl VO 


A7707A 

033c ' 6 


nc 1 07 
Dr 12a 




r ADTW1 

C UR 1 V 1 


A777A0 

03330c 


nc 1 7 

Dr 13 




rADI 
CORl 


A700AA 

03cc0h 


nc 1 7a 
Or 130 




rADI A 
tORlO 


A70iL0A 

03c6c6 


nci 71 

Dr 131 




CORl 1 


A70iC70 


nc 1 70 
Dr 132 




CORlc 


A70770 
032 f 5d 


nc 1 77 

Dr 133 


•* 


rADl 7 
CORl 3 


A70779 

03c lie 


nr 1 XL 
Dr 13h 




r ADO 

CORc 


A7007A 

03cc3U 


nc 1 7C 

Dr 133 




r ad7 

C0R3 


A700// 


nc 1 Xt, 
Dr 1 36 




r AD77 
C0R33 


A700CiL 

03c236 


nc 1 77 

Dr 13a 




r AD/ 
CORH 


A7071 A 

03c316 


nc 1 / 
Dr 1 H 




r ADC 
C0R3 


A707CiL 

03c33o 


nc 1ZA 
Dr IhU 




r ADil 
CORO 


A70Z. 1 A 

03cH 1 6 


nc 1 Al 
Dr IH 1 




r AD7 

CORf 


U3ch6c 


nc 1 Z 0 
Dr I«i2 




r ADO 
CORo 


A70C00 

03c32c 


nc 1/7 
Dr 1«»3 




r ADO 
CURy 


A70C&/L 
03c300 


nc 1 zz 




r DCAvyc 
CrSAVt 


A7ZZ 00 

03HHCC 


ncizc 
Dr 1h3 




rDCOl ID 

LrdrUR 


A77CrtO 

03'3Uc 


nclz,iL. 
Dr IHO 




Ir 1 WU 


rt7750rt 

yjjijcv 


nci£7 
Dr iHf 




rD — 
CR 


AAAAI C 

00001 3 


nc 1 C 
Dr 13 




rDi r — 
CRLf 


AAAOAA 

OOOcOO 


nc 1 CA 
Dr 130 




r\nf\f%AAj 
DDDDON 


A1 70Cn 
U 1 1 c jU 


nc 1 C1 
Dr 13 1 




uVv 1 


A1 iL70A 

Ul 63cU 


nc 1 CO 
Dr 13c 




nf\r\ 0 
vOVc 


A1 /L77Z 

0163^*1 


nc 1 C7 
Dr 1 33 




DDD3 


A1 i^L CA 

01 6h30 


nc 1 CZ 
Dr 1 3h 




DDDh 


A1 ilCOA 

01 63cH 


nc 1 CC 
Dr 1 33 




ODD) 


Al iCiLAA 

016600 


nc 1 CA 
Dr 1 30 




nnnA 
uvuo 


u 1 oo J** 






ODD? 


016730 


DF16 




DDISP = 


177570 


DF160 





SEQUENCE 169 



A7A7Z 7 

0r0A*»3 


nc 1 Al 
Dr 'Ol 




A71 A7A 
Of 1036 


A7A7/ 1» 


nc 1 AO 
Dr lo2 




A71 ATA 

0^1036 


A71 1 X./ 

OaI 16h 


nc 1 Ac 
Dr 103 


• 


A71 1 AA 

OaI 106 


A71 1 

OaI 164 


nr 1 X/ 
Df 164 




A71 ATA 
0^1036 


A71 1 AZ, 


nc 1 AC 
Dr 103 




A71 01 A 

Of 1216 


A71 1 AZ 
VI 1 I0*» 


nc 1 AA 
Dr I06 




A71 01 A 

Of 1216 


A71 1 
Ur 1 1 0*t 


nc 1 A7 
Dr lOA 




A71 01 A 

0A1216 


A71 1 AZ 

u f n 6*» 


nc 1 7 
Dr 1 A 




A7A777 

O^Of f 3 


n71 1 AZ 


nc 1 7n 

Dr I fU 




A71 01 A 

Of 1 21 6 


A71 1 AZ 
\)f 1 1 o*» 


nc 1 71 

Dr 1 / I 




A71 01 A 

Uf 1 21 6 


A7A7/ 7 


nc 1 70 
Dr 1 A c 




A71 01 A 

Uf 1 2 16 


A71 1 AZ 

yji WOh 


nc 1 77 

Dr 1 f 3 




A71 01 A 

Uf 1216 


071 ni 0 
\)l 1 u 1 c 


nci 7z 
Ur 1 f 




A71 01 A 
Uf 1210 


n7ini 0 
\)l 1 u 1 c 


nc 1 7C 
Ur 1 f 3 




A71 01 A 

U' 12 16 


n7ini 3 
Ur lu 12 


nc 1 7A 
Dr 1 10 




A71 OCA 

Uf 1230 


A71 Al 5 

\JI 1 U 1 c 


nc 1 77 
ur 1 f f 




fl71 Trt3 
VI I3U2 


071 AAO 
\Jf IU02 


nco 




A707A1 
UAUf 61 


A71 AAO 

\)l lUOc 


nc 30 
Ur cU 




A71 AOO 
vl IVVC 


071 OA? 


nc OOO 
Dr cvv 




A71 OCA 
VI I23U 


0707A7 

yjiMi Hj 


nc OAI 
Ur cU 1 




071 3CA 
vl 1 C3U 


071 OA? 
Ml 1 wOC 


AC 300 
ur cUc 




071 3^0 
Uf 1 C3U 


071 OA3 
yji \ vOc 


nc 30T 
Dr cU3 




A71 OCA 
Uf I 23U 


071 0A3 
Vf 1 UOC 


VrCvH 




071 3CO 
vl 1 c3U 


071 O^A 

\>l 1 vjO 


nc 30C 
ur cU3 




071 3^0 
Uf lc3U 


07107A 


nf 3t lA 
ur cuo 




071 3^0 
Uf ICjU 


071 OTA 

vi 1 UjO 


OF 307 

ur cUf 




071 T1 S 

Uf 1 J 1 7 


071 OTA 
Vf 1 VjO 


ur c 1 




071003 
Uf lUUC 


071 10A 
Uf 1 lUO 


nc oin 
ur c lu 




071 70C 
vl 1 3U3 


0707A7 


nc 01 1 
ur c i 1 




071 71 C 
Uf 13 13 


071 10A 
Ur 1 ivO 


nc3i 3 
ur c Ic 




071 TA1 
Uf 1 J** 1 


071 lOA 
vl 1 IvO 


ur c 13 




071 TA1 
vl 1 JH 1 


071 OTA 
Uf Iv30 


ur c 1 *♦ 




071 TA1 
Uf 1 3H 1 


071 1 0A 
U f 1 1 JO 


nc 31 c 
ur c 1 3 




071 7A1 
Uf 1 3h 1 


071 10A 
Ur 1 1 vO 


nc 31 A 
ur c 1 0 




071 71 «\ 
Uf 1313 


071 OTA 
U 1 1 JjO 


nc 31 7 
ur c 1 f 




071 T71 

Uf iJl 1 


071 10A 
U f 1 I 'JO 


nc33 
urcc 




071 003 
Uf 1 UUc 


071 0A3 
Vf 1 UOc 


nc330 
ur ccv 




071 71 C 
Uf 1 3 1 3 


0707AT 
VIvl Hj 


nc 331 
ur CC 1 




071 71 C 

Uf 13 1 3 


071 OA? 
ul IvOC 


f>C333 
ur ccc 




071 T1 ^ 

Uf 1 J 1 J 


071 oa5 

Ur 1 UOC 


ftC 33T 

ur cc3 




071 T1 C 

Uf 1 J 1 J 


071 0A3 
Ur 1 UOc 


nc 33Z 
ur cc*» 




071 71 S 
Uf 1 3 1 3 


071 OAO 
vl 1 UOc 


nc33S 
Vr ccj 




071 T1 *» 
Uf 1 3 1 3 


071 OAP 
Uf lUDc 


nc33A 
Vr ccO 




071 7Z1 
Uf 1 3*1 1 


07101 0 
Uf 1 U 1 c 


nc337 
Vrccf 




071 7A1 
Uf 1 34 1 


071 01? 
Uf 1 U 1 c 


ur c3 




071013 
Uf 1 U 1 c 


07101? 
Uf 1 U 1 c 


nF9T0 
urcjv 




071 TA1 
U r 1 jH 1 


0707AT 
Uf Uf H3 


ftC3T1 
ur c3 1 




071 TAl 
U f 1 34 1 


071 01 3 
Uf 1 U 1 c 


nc 3T3 
Vr cjc 




071 7Z1 
U f 1 34 1 


071 1 0A 
Uf 1 1 UO 


nc3TT 




071 AAA 
Uf 1 hUU 


071 10A 
Uf 1 1 UO 


nc 37A 
ur cj** 




071 A1^ 
Uf 1 H 1 J 


071106 


DF235 




071424 


071106 


DF236 




071415 


071106 


DF237 




071415 


071106 


DF24 




071012 


071036 


DF240 




071415 


070743 


DF241 




071400 


071106 


DF242 




07141S 



cKFpeco 


CD11C CiTfl MIT 


ODT n 




HArpn HI 


SYMBOL 










OF 243 


- 


{Jf l<iUU 


nFAS 

VrOj 




vr 1 1 JC 


0F244 






nF AA 
Vr OO 




071 1 


0F24S 




Ml < HW 


nr A7 

l/r Oi 


z 


071 I^P 


OF 246 


- 


071 OTA 


nr 7 




if \Jf H J 


OF 24 7 




071 


nr70 




071 1A^ 


OF?: 


- 


07ini 5 


Ur 1 1 




071 1A^ 


0F250 




Vf t •» jV 


nF7P 

Ur f c 


z 


071 1A^ 


DF251 




071 


nF7T 

Ur f J 




071 1^ 


OF 252 




071 ATA 


nr 74 

Ur r H 


z 


071 1A^ 


DF253 




yjf 1 HHC 


Ur r J 




071 1A^ 


OF 254 




071 AA5 


nr 7A 

Ur 1 O 


z 


071 1^^4 


OF255 






Ur f 1 


z 


071 ** A4» 


0F256 




071 AA? 


nui 
un 1 




0^710^ 


0F257 




071 


rtui 0 
un 1 u 


_ 


0A710A 


OF 26 




07101 ? 


nulOo 
un 1 vw 


z 


0A710A 


OF 260 


r 


071^^3 


(IPI 01 

U» 1 U 1 




067106 

vOr 1 WO 


OF 261 




071<.A7 


' WlOP 




067106 

vwr 1 WO 


OF 262 




071 


nuiOT 
un 1 u J 




0A7106 

UOi 1 vO 


DF263 


s 


0714A7 

Uf 1 HHC 


nMl04 
un 1 v*t 




067106 

VO r I VO 


OF 264 






AMI OS 
un 1 vj 




0671 06 

vOr I vO 


OF 265 


— 




OUIOA 
un 1 vo 




067106 

vO r i vO 


UF266 




071 AXA 


un 1 Vf 




067106 

VO 1 1 vO 


0F267 


- 


071 ?f T 

Ur 1 C^v 


nui 1 
un 1 1 




0671 OA 

wOi 1 vO 


0F27 




07101P 


nui 10 

un i 1 V 




067106 


OF 3 




07074^ 
yjfvfHj 


OHi 1 1 




067106 


0P3C 




07101 ? 


DHI IP 
un 1 i c 


_ 


067106 


OF 31 




07101? 


DM1 IT 
un 1 1 J 


mm 


067106 


OF 32 




07101P 


DM1 14 
un 1 1 




067106 


OF 53 




071 O^A 


DM1 IS 
un 1 1 J 




067447 


OF 34 




071 OXA 


DM1 16 
un 1 1 o 




067447 


OF 35 


- 


071 OTA 


DM1 17 
un 1 1 1 




067447 

VOl "f f 1 


OF 36 


r 


071 OTA 


DM1? 
un 1 c 




067106 

VOl 1 VO 


OF 37 




07101? 


DM170 
un 1 cv 




067447 


OF 4 


r 


07074 T 


un 1 c 1 




067447 


OF 40 


= 


07101P 


un 1 cc 




067447 


0F41 




07101P 


DHIPT 
un 1 cj 




067106 

VOl 1 VO 


0F42 


- 


n7ioip 

Vf 1 V 1 c 


DM1 ?4 
un 1 CH 




067106 

VOl 1 VO 


0F43 


— 


07101P 
Vf IV I c 


DMIPS 
un 1 c ? 




067106 

VOl 1 VO 


OF 44 




07101P 
Vf IV \ c 


DMlPA 
un 1 CO 




067106 

VO 1 1 VO 


DF45 




07101P 

Vf IV IC 


OMIP? 
un 1 c 1 




067447 


DF46 


— 


071 n^A 

V f 1 VJO 


DMIT 
un 1 J 




067106 

VU' 1 VU 


DF47 


- 


0"»10TA 

V 1 VjO 


DMlTO 
un 1 jw 




067447 

Vwr t 


OF 5 


r 


07074^ 

VfVf Hj 


DMITI 
un 1 J 1 




067447 

VU* ~~ r 


OF 50 


= 


071 OTA 

Vf 1 VjO 


DHl TP 
un 1 




0^710^ 

vOf • VU 


-'51 


- 


071 OTA 

Vf IVjO 


DMl TT 

un 1 jj 




0A7447 

VU r "t r 


U52 




07inTA 

Vf 1 U JO 


DKI T4 
un 1 




067447 


OF 53 




071 1 T? 

Vf 1 1 jC 


DMl TS 
un 1 J J 




067106 

vOI 1 VO 


OF 54 


- 


071 1 TP 

Ur 1 1 JC 


un 1 jv 




067447 

vO r "t"? r 


DF55 




071 1 TP 

will jC 


DH1T7 




067447 


OF 56 




071 1 TP 

Ur 1 1 jC 


Vrl 1 "t 




0671 06 

UO f 1 VO 


0^57 




0711 TP 

will JC 


i/n 1 "f V 




067447 

wU r f 


OF 6 




07074 T 
wi wi J 


DH141 




067447 

VU r " ~ r 


OF 60 




071 1 TP 
will J^ 


un 1 




067447 

VU r f 


DF61 




071132 


DH143 


• 


067447 


OF 62 




071132 


DH144 




067447 


0F63 




071132 


DH145 




067106 


Of 64 




071132 


DHI 46 




067106 
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DHI 47 




067106 

VU' > VU 


DH230 




070053 


DH52 

vn vfc 




067106 


DHl 5 




067106 

VU > ■ VU 


DH231 


_ 


070142 


DH53 


— 


067106 


DHl 50 

I/n 1 ^v 




0671 06 

VW ' VU 


0H232 




070142 


DH54 




067106 


DH151 





067447 

VU ' ~ ~ 1 


DH233 




070231 


DH55 




067106 


DHI 52 

vn 1 




067447 


DH234 




070272 


DH56 




067106 


DHl 53 

I/n 1 


_ 


067447 


DH235 




070360 

w • w ^uw 


DH57 


— 


067106 


DH154 

vn 1 




067447 


DH236 




070420 


DH6 


— 


067106 


DH155 

l/n 1 V ^ 




067447 


DH237 


- 


070272 


DH60 


— 


067106 


DH156 

vn 1 VU 




067447 


DH24 


_ 


067106 


DH61 


— 


067^06 


DHI 57 

vn 1 V r 




067106 

VU ' ■ VU 


DH240 




070506 


DH62 


— 


067106 


DHI 6 

vn 1 u 




067106 

VU 1 1 V V 


DH241 


— 


0/0231 


DH63 


— 


0671 C6 


DHI 60 


_ 


067447 


DH242 


— 


070506 


DH64 


- 


067106 


DH161 


— 


067106 


DH243 


- 


070231 


DH65 


_ 


067106 


DHI 62 


_ 


067106 


DH244 


- 


070231 


DH66 


- 


067106 


DHI 63 


_ 


067447 


DH245 


— 


070231 


DH67 


- 


067106 


DHI 64 


_ 


067106 


DH246 


- 


067106 


DH7 


- 


067106 


DHI 65 




067447 


DH247 




070576 


DH70 


- 


067106 


DHI 66 


_ 


067447 


DH25 


- 


067106 


DH71 


- 


067106 


DHI 67 




067447 


DH250 




070643 


DH72 




067106 


DHI 7 




067237 


DH251 


— 


070643 


DH73 




067106 


DHI 70 




067447 


DH252 




067176 


DH74 




067106 


DHI 71 




067447 


DH253 


— 


067106 


0H75 




067106 


DHI 72 


— 


067447 


DH254 


— 


067106 


un76 




067106 


DHI 73 


_ 


067447 


DH255 


- 


067106 


DH77 




067106 


DHI 74 


- 


067447 


DH256 


- 


067106 


DISPLA 


001142 


DHI 75 


— 


067447 


DH257 


- 


067106 


DISPRE 


0001 74 


DHI 76 


— 


067447 


DH26 


- 


067106 


DIVDSU 


017010 


0H1 77 




067546 


DH260 




067106 


DIVDT 




017240 


0H2 




0671 76 


DH261 




067106 


DIVFSU 


016070 


0H20 


— 


067106 


DH262 


- 


067106 


DIVFT 




016304 


DH200 




067447 


DH263 


— 


067106 


DSUR 




177570 


DH201 




067447 


DH264 


- 


067106 


DTI 




071474 


DH202 


— 


067447 


DH265 


- 


067106 


DT10 




071474 


DH203 




067447 


DH266 




070703 


DT100 




071734 


DH204 


J. 


067447 


DH267 


- 


067447 


0T101 




071 734 


DH205 


— 


067447 


DH27 


- 


067106 


DT102 




071734 


DH206 


— 


067447 


DH3 


- 


067106 


DTI 03 




071734 


DH207 




067647 


DH30 


- 


067106 


DTI 04 




071734 


DH21 




067312 


DH31 


- 


067106 


DT105 




071734 


DH210 




067737 


DH32 


- 


067106 


DT106 




071 734 


DH211 


— 


067737 


DH33 


- 


067106 


DT107 




071734 


DH212 


- 


067647 


DH34 


- 


067106 


DT11 




071474 


0H213 


- 


067647 


DH35 


- 


067106 


DT110 




071734 


DH214 


- 


067647 


DH36 


- 


067106 


DT111 




071662 


DH215 


- 


067647 


DH37 


- 


067106 


DT112 




071662 


DH216 




067737 


DH4 


- 


067106 


DT113 




071662 


DH217 




070000 


DH40 


- 


067106 


DT114 




071662 


DH22 




067401 


DH41 


- 


067106 


DT115 




072022 


DH220 




067607 


DH42 


- 


067106 


DT116 




072022 


DH221 


— 


067737 


DH43 


- 


067106 


DT117 




072022 


0H222 




067607 


DH44 




067106 


DT12 




071474 


DH223 




067737 


DH45 




067106 


DTI 20 




072022 


DH224 




067607 


DH46 




067106 


DT121 




072022 


DH225 




067737 


DH47 




067106 


DT122 




07^022 


DH226 




070053 


0H5 




067106 


DT123 




071662 


DH227 




070142 


DH50 




067106 


DT124 




071662 


DH23 




067106 


DH51 




067106 


DT125 




071662 



c u 
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SYMBOL TABLE 



V 1 1 CO 






ftT21 




071 05 

Ur I OCC 


DT31 

V ■ J 1 




07166? 

vr ■ woe 




000030 

vvvv^v 




1 JC J 


0T1 ?7 




Ur CwCC 


nT210 




07554A 


0T32 

V 1 iJC 




071662 


FM1 

C" 1 


040514 

V*t V J 1 


FM161 


051461 


hTl ^ 




071 


niPi 1 


_ 


075174 


u > 




vr I OOC 




041 


cn 1 Ot 


U J 1 oco 






07505? 


nT?i? 

1/ 1 C 1 c 




075570 

V ' cc r V 


DT^4 




07166? 

V r 1 OOC 


FM100 


054671 


cn 1 


0S1 77? 






075055 






075570 

V r CC r V 


DT35 




071662 

V r 1 UOC 


FM101 

cri 1 V 1 


054554 

V^~ ^ 


FM1^4 
tn 1 o*f 


052127 


DTI ?P 




071^^5 


DT2K 




V' cc r V 


DT36 


_ 


071662 

V r . UUC 


FM102 

cri 1 vc 


054750 


cn 1 


056060 






075055 


01215 




075570 

vr CC r V 


DT?7 




071662 


FM103 


0SS144 


cn 1 OQ 


056144 






075055 

V ' C VCC 


BTP16 

U 1 C 1 o 




075174 

vr C 1 r H 


014 




071474 

V r 1 ^ f ^ 


FM104 

C*> ■ V" 


0SS5S6 

v^-'C^O 


FM167 

cn 1 O r 


056P27 






071AA5 

vr 1 OOC 






075TS5 

vr CjJC 


1/ 1 Hv 




071662 

V r 1 OOC 


FM105 


05545T 


PM17 

cn 1 r 


0A2515 

wHC J 1 J 


DTI 56 




075055 

V' CVCC 


DT22 




071644 

V r 1 


DT41 




071662 

V r ■ W VC 


FM106 

L*1 1 VU 


055532 

V w ^^c 


FM1 70 


056261 


DT137 




V r «• VC C 


DT220 

1/ 1 C b V 




072174 

V r fc 1 r ^ 


DT42 




071662 

V r 1 W C 


EMI 07 

t r» 1 V r 


055641 


FM171 

1(1 


056347 


DTK 




071474 

V r 1 •? r *f 


DT221 




072174 

Vr c 1 r *t 


DT4l 

V ( ■•J 




071662 

Vr 1 OOC 


FM11 

cri 1 1 


041440 

v"t 1 ■? ^V 


FM1 72 

cn 1 f c 


056472 


DTKO 




072022 

V r C vCC 


DT222 

U 1 ccc 




072174 


DT44 




071662 

V r 1 WUC 


FM110 

tn 1 1 V 


055750 


FM173 

tn 1 r J 


056557 
056725 

v^O ' CJ 


DTK1 




072022 

V r C VCC 


DT223 




072174 

V r C 1 r ^ 


DT45 




071662 

V r 1 VWC 


FM111 

L'V III 


044565 

V~ » ^ V 


FM174 

tn 1 r ^ 


DTK2 




072022 

V r C VC C 


DT224 

V 1 c c~ 




072174 

V r t 1 r ^ 


DT46 

V 1 ~V 




071662 

vr 1 WC 


EM1 12 

C ■ ■ ■ C 


044642 

v~~ v~c 


FM175 

t" \ 9 J 


057073 


DTK? 




072022 

vr CVf»C 


DT225 

1/ 1 CC ^ 




072174 

V r C 1 r ^ 


DT47 

V 1 ^ r 




071662 

V r 1 vwc 


-Ml 13 

t^f 11 1 


044720 

V~~ f fc V 


FM176 

tn 1 r V 


057205 

v^ r C 


0T1AA 




072022 

V r C VC C 


DT226 

Ir 1 ecu 




072270 

V r C C r V 


DT5 

V 1 ^ 




071474 

V r 1^1^ 


EM1 14 


044776 

V^^ r r V 


EMI 77 

t n Iff 


057271 

v^ r t r 1 


DTKS 




071662 

V r 1 WWC 


DT227 

1/ 1 C C r 




072270 

vr CC r V 


DT50 

1/ 1 ^V 




071662 

V r 1 UUC 


FM115 

L*> 11^ 


045055 


FM2 

cnc 


060546 






071662 

V r 1 


DT2i 




071662 

V » 1 uvc 


DT51 

V I ^ 1 




071662 

V ■ ■ wc 


EM1 16 


045133 

V^ -/ 1 «</^ 


FM20 

cnc V 


042370 

V*»C Jr V 


0T1A7 




071662 


DT230 

1/ 1 CJV 




072270 

vr C C r V 


DT52 

1/ I ^C 




071662 

v» ■ wc 


EM117 

bf* 1 1 r 


045212 

V^^ C I c 


FM200 

cnc VV 


057325 


0TT5 




07K74 


DT231 




072246 

V r k k V V 


DT53 




071734 

V r If 


EMI 2 

b' lie 


041547 


EM201 

tncv 1 


057357 


0T150 




071662 

V r 1 


DT232 




072174 

V r t 1 r ^ 


DT54 




071 734 

V r Iff 


EMI 20 


045350 


EM202 

C"C VC 


057446 

V^ ' ~~W 


DTI 51 




072022 

V r C VC C 


DT233 




072372 

V r r c 


DT55 




071 734 

vr 1 r 


EMI 21 

C*^ I C 1 


045506 

V^ ^ w 


FM203 

cnc v>^ 


057610 

V-^ r O 1 V 


DT152 




072022 

vr CVCC 


0T234 

V 1 k 




072426 


DT56 

V 1 w 


_ 


071 734 

V r 1 r 


EMI 22 

cri ICC 


045643 

V~^ 


FM204 

t nc v^ 


057752 

V-* r r 


DT153 




072022 

V r c Vfc b 


DT235 




072446 


DT57 


_ 


071 734 


EMI 23 


046000 

V^ W V V 


EM205 


060040 

W W~ V 


0T15A 


_ 


072022 

V r c Vt. C 


DT236 




072426 


DT6 

1/ ■ V 




071474 

V r 1 ^ f ^ 


EMI 24 


046056 

v~ w 


EM206 

f ifc vw 


060206 

VWt V V 


DT155 


— 


072022 

V > k Vb w 


DT237 

V 1 r 




072426 

V r b W 


DT60 


_ 


071 734 


EMI 25 

C'T I C ^ 


046135 


EM207 

trie V r 


060354 


0T156 


_ 


072022 

V r Vb ft> 


DT2A 




071662 


DT61 

V 1 V 1 




071 734 

V r Iff 


EMI 26 

t"l 1 cv 


046213 

V~ w t 1 


EM21 

trit 1 


042422 

v^c~cc 


OT157 


_ 


071662 


DT240 




072426 


DT62 




071 734 


EMI 27 

Lfi 1 r 


046272 

V~ wfc r k 


EM210 

tnt 1 V 


060416 

V W~ 1 V 


0T16 


— 


07K7h 


DT241 




072372 

V r r 


DT63 


— 


071 734 


EMI 3 


041656 

V~ 1 


EM211 

t' It 1 1 


060460 

W V~ W V 


oil 60 




072022 

V r c vcCb 


DT242 




072426 

V r k ~ b w 


DT64 

V " w~ 




071734 


EMI 30 


046350 

V~ V«/^ V 


EM212 

f iC 1 C 


060624 

Vw VwC ~ 


DT161 


— 


071662 

V* ' wc 


DT243 




072372 

V r r fc 


DT65 

V ■ 




071734 


EMI 31 

k>f 1 1^ 1 


046427 

V~ V~ t r 


EM213 


061010 

VW 1 V 1 V 


DT162 


— 


071662 

V r 1 


DT2AA 




072372 


DT66 

V 1 w 




071 734 

V r Iff 


EMI 32 

Cff ■ ^C 


046565 


EM214 

fit 1 ~ 


061 1 74 

Vw 1 1 r ^ 


DT163 




072022 

V> fcVbfc 


DT245 




072372 


DT67 




071 734 


EMI 33 


046723 


FM215 

tnc I -* 


061360 

V V 1 VfV 




_ 


071662 

V r ■ Wfc 


DT2A6 




071662 

V» 1 Wfc 


DT7 

V ■ r 




071474 


EMI 34 


047061 

V~ f W 1 


EM216 

t' It 1 V 


061544 

Vw 1 ~ 


DT165 




072076 


DT247 




072460 


DT70 




071 734 


EM135 

bf I 1 w/i^ 


047216 

v~ r vi. 1 V 


EM217 

tr Ik 1 r 


061726 

Vw I r tw 


DT166 




072076 

V r c V r V 


DT25 




071662 

V r 1 


DT71 




071 734 

V* 1 • 


EM136 

tri 1 ^v 


047353 

V~ f J J J 


EM22 

cncc 


042454 

v"f c"-*" 


0T167 


_ 


072076 

V r V r v 


DT250 

V 1 ^ V 




072476 

V r ~ » w 


DT72 




071 734 

V r If 


EM137 

f T 1 r 


047510 

V ~ f ^ 1 V 


EM220 

cncc V 


061 770 

Vw 1 r f V 


DT17 




071 560 


0T251 




072476 

V r t ~ r w 


DT73 




071734 


EMI 4 

k fi 1 ~ 


041772 

V^ 1 r f b 


EM221 

cncc 1 


062220 

VUCkC V 


DTI 70 




072076 


DT252 




072510 


DT74 




071 734 


EMI 40 


047576 


EM222 

t r Ifc tm t 


062464 

V w t ~ w~ 


DT171 


- 


072076 


DT253 




072522 


DT75 




071734 


EM141 = 


044565 


EM223 


062715 

VWC r 1 


DTI 72 


— 


072076 


DT25A 


• 


072522 

V r ^ ^fcb 


DT76 




071734 

V f If 


EM142 = 


044642 


EM224 


063162 

VV^ 1 VC 


DTI 73 


— 


072076 


DT255 


• 


072522 

V r b ^ Cfc 


DT77 




071 734 

V r If 


EMI 43 


047665 


EM225 

t nw t ^ 


063413 

V W^~ 1 «/ 


DT17A 




072076 


01256 




072522 


EEEDON 


020260 

Vfc ve w 


EMI 4 4 


047743 


EM226 


063660 

V W«i/ WW V 


DTI 75 


— 


072076 


DT257 


• 


072522 

V r b ^ k k 


EEE1 




017254 

V 1 r fc^^ 


EMI 45 


050022 

V^ V Vfc 


EM227 

trit C ■ 


06401 3 


DTI 76 




072076 


DT26 




071662 

V r 1 W C. 


EEE10 




01 7650 

V * • wv 


EMI 46 

b*l 1 ~V 


050167 

V *■ V 1 V r 


EM23 


042535 

V~C J 


DT177 




07216A 


DT260 




072522 

V r ^ 


EEE11 




01 7704 

V 1 r f v~ 


EMI 47 

bVi 1 ^ r 


050334 


EM230 


064146 

VW^ 1 ~w 


DT2 




071532 


DT261 




072522 


EEE12 




01 7740 

V 1 r f ^V 


EMI 5 


042104 

V~t 1 V » 


EM231 

t nt -J I 


064302 

VW^ ^VC 


0T20 




071600 

V r 1 WW 


DT262 




072522 

v r k ^ k k 


EEE13 




017774 

V 1 f f f ~ 


EMI 50 

Lr| 1 ^ V 


050500 

yg vv 


EM232 

trie 


= 060416 

vwv~ ■ w 


0T200 




072076 


0T263 




072522 


EEE2 




017310 


EMI 51 


050644 


EM233 

t r ifc .i/i^ 


064436 


0T201 


- 


072076 


DT264 




072522 


E«:E3 




017344 


EM152 


050732 


EM234 


064475 


OT202 




072076 


DT265 




072522 


EEE4 




017400 


EMI 53 = 


"46000 


EM235 


064561 


DT203 




072076 


DT266 




072510 


EEE5 




017434 


EMI 54 = 


346056 


EM236 


064627 


0T204 




072076 


DT267 




072076 


EEE6 




017470 


EMI 55 


051021 


EM237 


064662 


OT205 




072076 


DT27 




071662 


EEE7 




017524 


EMI 56 


051077 


EM24 


042612 


DT206 




072076 


DT3 




071474 


EEE8 




017560 


EMI 57 


051156 


EM240 


064746 


DT207 




072174 


DT30 




071662 


EEE9 




01 7614 


EMI 6 


042216 


EM241 


065002 
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EH2A2 

EH243 

E«2<.A 

EM2A5 

EH2A6 

EH247 

EM25 

EM250 

EM251 

EM252 

EM253 

EM25A 

EM255 

EH2j6 

EM257 

£«26 

EM260 

EH261 

EM262 

E«263 

EM26A 

EM265 

EM266 

EH267 

EH27 

EM3 

En30 

EM31 

En32 

EH33 

EH3A 

EM35 

EM36 

EM37 

EHA 

EHAO 

EH41 

E«42 

E«43 

EMA 

EH45 

EH46 

E«47 

EH5 

EH50 

E«51 

EH52 

EH53 

EM5A 

EH55 

EH56 

EH57 

EH6 

En60 

En61 

EH62 

En63 



065105 
065U1 
0652AA 
065303 
0AA175 
065365 
0A2710 
065A21 
065453 
065506 
065577 
065663 
065750 
066036 
066125 
0A2775 
066213 
066302 
066372 
066A63 
066550 
066635 
066722 
067023 
0A2710 
0A0602 
0A3073 
0A31A5 
0A2560 
A3212 
0A3235 
0A3267 
0A33A2 
0A3A10 
0A0707 
0A3A33 
0A3A65 
0A35A0 
0A3671 
0AA022 
0AA070 
0AA1A3 
0AA220 
0A101A 
0AA35A 
0AAA27 
0AAA75 
052325 
052356 
052273 
052A06 
052A77 
0A1121 
052567 
052671 
053065 
053261 



EM6A 

EM65 

E«66 

E«67 

E«7 

EM70 

E«71 

E«72 

EM73 = 

E«7A 

E«75 

E«76 

E«77 

EPENDS 

EW110 

ERROR = 

ERRVEC= 

ERTYPE 

FFFDON 

FFF1 

FFF2 

FFF3 

FFFA 

FPSPUR 

FPVECT= 

GGDATO 

GGDONE 

66ER0 

66ER1 

66ER10 

G6ER11 

66ER12 

6GER13 

GGERU 

GGER15 

6GER16 

66ER17 

G6ER18 

GGER19 

G6ER2 

GGER20 

GGER3 

G6ER4 

GGER5 

GGER6 

GGER7 

G6ER8 

GGER9 

GGGDON 

GGG1 

GGG10 

GGG11 

GGG12 

GGG13 

GGG1A 

GGG2 

GGG3 



053372 

053511 

05362A 

053673 

OA 1226 

053756 

054007 

05A037 

054037 

054071 

054200 

054271 

054361 

034104 

034756 

104000 

000004 

037040 

021010 

020264 

020340 

020414 

020470 

037450 

000244 

011734 

012054 

010232 

010330 

011042 

011110 

011156 

011224 

011272 

011370 

01U36 

011504 

011552 

011620 

010376 

011666 

010444 

010512 

010514 

010562 

010630 

010726 

010774 

026072 

024420 

025170 

025240 

025310 

025360 

025430 

024470 

024540 



GGG4 

GGG5 

GGG6 

GGG7 

6GG8 

6669 

GGP1 

6GP2 

G6P3 

6GP4 

G6P5 

GGP6 

GGP7 

GGP8 

GGP9 

GG1 

G610 

GG11 

GG12 

GG13 

GG14 

GG15 

GG16 

G617 

GG18 

GG19 

6G2 

GG20 

GG21 

GG22 

GG23 

GG24 

GG25 

Gr?6 

GG27 

GG28 

GG3 

GG4 

GG5 

GG6 

GG7 

GG8 

GG9 

GTSUR r 

HHDATO 

HHDONE 

HHERO 

HHEROO 

HHER1 

HHER10 

HHER2 

HHER3 

HHER4 

HHER5 

HHER6 

HHER7 

HHER8 



024610 

024660 

024730 

025000 

025050 

025120 

011744 

011754 

01 1 764 

011774 

012004 

012014 

012024 

012034 

012044 

007142 

007436 

007474 

007516 

007526 

007544 

007602 

007620 

007666 

007676 

007732 

007200 

007770 

010012 

010022 

010040 

010076 

010114 

010162 

010172 

010226 

007222 

007232 

007250 

007306 

007324 

007372 

007402 

104405 

006766 

007136 

006006 

006122 

006054 

006650 

006170 

006236 

006304 

006352 

006420 

006466 

006534 



HHER9 

HHUDON 

HHH1 

HHH10 

HHH11 

HHH12 

HHH13 

HHH2 

HHH3 

HHH4 

HHH5 

HHH6 

HHH7 

HHH8 

HHH9 

HHPO 

HHP1 

HHPIO 

HHP11 

HHP2 

HHP3 

HHP4 

HHP5 

HHP6 

HHP7 

HHP8 

HHP9 

HHTRAP 

HHl 

HHIO 

HH11 

HHl 2 

HHl 3 

HHl 4 

HHl 5 

HH16 

HHl 7 

HH18 

HHl 9 

HH2 

HH20 

HH21 

HH22 

HH23 

HH24 

HH25 

HH3 

HH4 

HH5 

HH6 

HH7 

HH8 

HH9 

HT 

HXDATO 
HXDONE 
HXER1 



006602 

030200 

026076 

027176 

027276 

027376 

027476 

026176 

026276 

026376 

026476 

026576 

026676 

026776 

027076 

006776 

007006 

007116 

007126 

007016 

007026 

007036 

007046 

007056 

007066 

007076 

007106 

006716 

005216 

005430 

005446 

005476 

005520 

005540 

005550 

005556 

005574 

005632 

005654 

005246 

005664 

005702 

005732 

005754 

005764 

006002 

005270 

005310 

005320 

005326 

005340 

005376 

005420 

000011 

013464 

013574 

013052 



HXER10 

HXER11 

HXER12 

HXER13 

HXER2 

HXER22 

HXER3 

HXER33 

HXER4 

HXER5 

HXER6 

HXER66 

HXER7 

HXER8 

HXER9 

HXPl 

HXP2 

HXP3 

HXP4 

HXP5 

HXP6 

HXP7 

HXP8 

HX1 

HXIO 

HX11 

HX12 

HX13 

HX14 

HX15 

HX16 

HX165 

HX17 

HX18 

HX19 

HX2 

HX20 

HX21 

HX22 

HX23 

HX24 

HX25 

HX26 

HX27 

HX28 

HX29 

HX3 

HX30 

HX31 

HX32 

HX33 

HX34 

HX35 

HX4 

HX5 

HX6 

HX7 



013342 

013374 

013414 

013444 

013112 

013126 

013142 

013156 

013172 

013072 

013226 

013242 

013256 

013210 

013306 

013474 

013504 

013514 

013524 

013534 

013544 

013554 

013564 

012060 

012266 

012310 

012330 

0123A0 

0123A6 

012364 

012412 

012416 

012444 

012502 

012522 

012110 

012532 

012534 

012564 

012604 

012624 

012634 

0126A2 

0126A4 

012676 

012720 

012124 

012730 

012746 

012776 

013020 

013030 

013046 

012144 

012164 

012174 

012202 
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TABLE 




















HX8 


012220 


ns2 


040030 


SUR 






TVPOS = 


104403 


SERTTL 


001112 




012252 


MS3 


040050 


SURE 6 




\J\/V 1 f O 


SAPTHD 


004332 


SESCAP 


001304 


IBSAVF 


C34<,24 


MS37 


040302 


SUO 




000001 


SATVC 


035700 


SETABL 


001336 


IIIDON 


021650 


MS4 


040077 


SUOO 




000001 


SATYI 


035654 


SETEND 


001442 


1111 


0210U 


HS40 


040320 


SWOI 




000002 


$ATY3 


035662 


SFATAL 


001320 


III2 


021060 


MS41 


040354 


SW02 




000004 


$ATY4 


035672 


SFFL6 


036120 


1113 


021 124 


fS415 


040334 


SW03 




nr 0010 

vw WW 1 w 


SAUrOB 


001134 


SFILLC 


001156 


1114 


021170 


ns42 


040400 


SW04 




wwwwC w 


S6ASE 


001372 


SFILLS 


001155 


IOTVEC= 


000020 

V V V V ^ V 


ns43 


040416 


SU05 





000040 

wwV/w"t w 


SBDAOR 


001122 


SGDAOR 


001120 


JJJDON 

www ▼ 


022610 


nS44 


040433 


SU06 




000100 


SBDDAT 


001126 


SGDDAT 


001124 


JJJI 


021654 


MS5 


040125 


SU07 




000200 

wwwC WW 


SBELL 


001306 


SGET42 


033664 


JJ j2 


021740 


ns6 


040147 


SU08 




000400 

www"* WW 


SCDUl 


001376 


SGTSWR 


036172 


JJ j3 


022024 


MS7 


040165 


SU09 




001000 

WW ' Www 


$CDU2 


001400 


tGT42C 


033776 


JJJA 


022110 


MULDSU 


020550 


SU1 




000002 

JWWWVb. 


SCHARC 


035414 


SHD = 


0000C3 


KKKOON 


023452 


MULDT 


021000 


SU10 




002000 

WWL www 


SCKSUR 


036122 


SHIBTS 


004332 


KKK1 


022614 


MULFSU 


020034 


SU11 




004000 

V w~ WW V 


SCLR.T 


034014 


SICNT 


001104 


KICK3 


022660 


(1ULFT 


020250 


SU12 




coooo 

w 1 Www 


SCflTAG 


001100 


SILLUP 


037032 


KKKA 


022724 


NNNDON 


032154 


SU13 




020000 

VC wwwV 


$cni = 


000024 


SINTAG 


001135 


KKKS 


022770 


NNNI 


031132 


SU14 




04 0000 

W~ WW WW 


fC«2 = 


000050 


SITEMB 


001114 


LF = 


000012 


NNN2 


031234 


SU15 




1 00000 

1 Vwwww 


$cn3 = 


000024 


fLF 


001314 


LLLDON 


0244 14 


NNN3 


031336 


SU2 




000004 

WWWwV" 


scn4 = 


000024 


SLFLG 


0361 1 7 


LLLI 


023456 


NNN4 


031 440 


SU3 




000010 

WW WW 1 w 


SCNTL6 


036541 


SLOOP 


034072 


LLL2 


023542 


OVDNTT 


022600 


SU4 




000020 

WV VVC V 


SCNTLU 


036534 


SLPADR 


001106 


LLL3 


023626 


OVDTT 


024404 


SU5 




000040 

w w w w^ w 


SCPUOP 


001344 


SLPERR 


001110 


LLLA 


023712 


OVFNTT 


021640 


SU6 




000100 

WW 1 WW 


SCRLF 


001313 


SnAORl 


001350 


LOOP 


005214 


OVFTT 


023442 


SW7 




000200 

WWWC WW 


SDDWO 


001402 


S/UDR2 


001354 


LPERR = 


104413 


OVUNON 


022200 


SW8 


_ 


000400 

www" W 


SDDWl 


001404 


SnA0R3 


001360 


PffWDON 


031126 


OVUNOT 


024002 


SU9 




001000 

WW 1 WW 


$DDU10 


001426 


SnADR4 


001364 




030204 


OVUNFN 


021240 


TAB 




00001 1 

WW I 1 


$DDU11 


001430 


SAAIL 


001316 




030256 


OVUNFT 


023040 


TBITVE 




000014 

www 1 ~ 


$DDW12 


001432 


SHAMS 1 


001346 


PVW3 


030330 


PIRQ = 


}77772 


TKVEC 




000060 

Www www 


$DDU13 


001434 


snAfis2 


001352 




030402 


PIRQVE= 


000240 


TOCT»#^ 


037434 

W^' » »^ ~ 


SODUU 


001436 


SMAMS3 


001356 




030454 


POWERn 


037740 


TPVEC 




000064 

wvwww^ 


SD0W15 


001440 


snAns4 


001362 




000267 


PR0GNU= 


000002 


TRAPVE 




000034 

WWW J~ 


$00U2 


001406 


SflBAOR 


004334 


NODDDO 


032134 


PRO = 


000000 


TRTVEC 




000014 

WW 1 ~ 


$DDW3 


001410 


SHFLC 


036116 


N0DDD1 


032144 


PR1 = 


000040 


TST1 




00S214 


$DDW4 


001412 


SfMEU 


036557 


NODDOV 


031546 


PR2 = 


000100 


TST10 




017252 


SDDW5 


001414 


SnSGAO 


001332 


nOODSU 


027602 


PR3 = 


000140 


TST11 




020262 

wC vcuc 


SDDU6 


001416 


SnSGLG 


001334 


noooro 


030160 


PR4 = 


000200 


TST12 




021012 

Wb 1 W 1 c 


SDDW7 


001420 


SnSGTY 


001316 


H0D0T1 


030170 


PR5 = 


000240 


TST13 




021652 

WC 1 WVC 


SDDU8 


001422 


snsuR 


036546 


nuoFoo 


031106 


PR6 = 


000300 


TST14 




022612 

Wk. w 1 C 


SDDW9 


001424 


SflTVPl 


001347 


M00F01 


031116 


PR7 - 


000340 


TST15 




023454 

WC 


SOEVCT 


001326 


SHTYP2 


001353 


IWOFOV 


030532 


PS = 


}77776 


TST16 




024416 


SDEVn 


001374 


SflTyP3 


001357 


NOOFSU 


025504 


PSU = 


1 77776 


TST17 






SO I SAB 


033744 


SnTYP4 


001363 


nOOFTO 


026042 


PWRVEC= 


000024 


TST2 




007140 

W' 1 ~w 


SD0A6N 


034034 


SmCNT 


034420 


noDFn 


026052 


RDCHR = 


104407 


TST20 




03020? 


SENDAD 


034024 


SNULL 


001154 


N00P1 


026062 


RESREl)= 


104411 


TST21 




031 no 

W^ 1 1 ^w 


SENDCT 


033404 


SNUTST= 


000001 


nsAi 


037614 


RESVEC= 


000010 


TST22 




032156 

wJC 1 -^w 


SENULL 


034100 


SOCNT 


033650 


NSA2 


037632 


RSETUP= 


104412 


TST23 




033340 

W ^ J— '~ w 


SENV 


001336 


somoE 


035652 


NSA3 


037655 


R6 


1000006 


TST3 




012056 

W 1 C w^ U 


SENVn 


001337 


SOVER 


034404 


NSA4 


037667 


R7 = 


K000007 


TST4 




013576 


$EOP 


033340 


SPASS 


001324 


PfSAS 


037705 


SAVREG= 


104410 


TST5 




014604 


SEOPCT 


033372 


SPASS2 


034106 


NSA6 


037720 


SCOPE = 


000004 


TST6 




015306 


$ERFL6 


001103 


SPASTM 


004340 


KSl 


040012 


SPACE 


040007 


TST7 




016316 


SERMAX 


001115 


SPURAD 


037014 


HS10 


040211 


STACK = 


001100 


TrPE 




104401 


SERROR 


034426 


SPWRDN 


036654 


HS11 


040233 


START 


004346 


TYPOC 




104402 


SERRPC 


001116 


SPWRHG 


037010 


HS12 


040257 


STKL«T= 


177774 


TYPON 




104404 


SERRTB 


001442 


SPURUP 


036726 



SEQUENCE 



CKFPBCO FP11F 
SYWOL TABLE 
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SEQUENCE 1 7^. 



MUES 

MDCHR 

MDSZ = 

SREGAO 

SREGO 

tREG1 

SREGIO 

tREG11 

tREG12 

tREG13 

SREGU 

WEGIS 

SREG16 

IREG17 

tREG2 

tREG20 

IREG21 

SREG22 

IREG23 

. ABS. 



001312 
036404 
000001 
001160 
001162 
001164 
001202 
001204 
001206 
001210 
001212 
001214 
001216 
001220 
001166 
001222 
001224 
001226 
001230 



SREG3 

tREG4 

SREG5 

$REG6 

fREG7 

SRESRE 

SRTNAD 

SRTRN 

SSAVRE 

$SAVR6 

$SCOPE 

$3ETUP= 

SSTUP - 

SSVLAO 

SSVPC = 

SSWR 

SSUREG 

SSURMK: 

$suRns= 



001170 
001172 
001174 
001176 
001200 
035016 
034074 
034070 
034760 
037036 
034110 
000137 
177777 
034350 
004332 
1 77400 
001340 
000000 
000200 



STAB 

STRIT 

ITERH = 

$TESTN 

$T]«ES 

STKB 

STKS 

$T«PO 

$T«P1 

$T«P10 

$T«P11 

$Tf1Pl2 

$TMP13 

$T«P14 

$TMP15 

$TrtP16 

$TMP17 

$T«P2 

$TMP20 



040005 
034076 
000030 
001322 
001302 
001146 
001144 
001232 
001234 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001236 
001272 



072620 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL HEHORY USED: 60776 WORDS ( 238 PAGES) 
DVNAHIC HEflORY: 20034 WORDS ( 77 PAGES) 
ELAPSED TIME: 03:05:19 

CK F PBC . BI N . CKF PBC / CR/-SP/NL : T0C=CKF PBC . «L8/HL . CKFPBC. PI 1 



tTMP?1 


001 ?74 


STYPFC 


035266 

W^y b W 


1TMP77 

9 1 nr C C 


001 ?76 


STYPEX 


035416 




001 ^00 

vw 1 Jww 


tTYPOr 


035444 


9 1 rTr J 


001 540 

WW 1 C ■* V 


iTYPOM 

9 1* r Wf* 


035460 




00124? 


STYPOS 


035420 

w ~ C W 


tTMPS 

9 I ft* J 




illMIT 


001 330 

WW 1 jjyj 


tTMPA 


001 

WW I C HD 




00434? 


iTMP7 

9 1 nr f 


001 P50 

WW 1 c w 




00134? 

WW 1 J"tC 




0000?? 

wwwwC-^ 




001366 

WW ■ JyJyJ 


9 1 r O 


001 IS? 

WW 1 \ JC 




001370 

WW 1 » w 


9 1 r r u VI 


001157 

WW 1 1 y » 




0000?3 

wwwwC J 


9 * r ^ 


001150 

WW 1 1 y w 




0000? 1 

wwwc ' 


STRAP 


036570 


SXTSTR 


034122 


STRAP2 


036612 


SSGET4= 


000001 


STRP = 


000014 


SOFJLL 


035651 


STRPAD 


036624 


.LPER 


037536 


STST« 


004336 


.RSET 


037544 


STSTNH 


001102 


.SX = 


004332 


STYPE 


035054 







